File |
Line number |
Procedure |
Code |
./pkg/exf/exf_mapfields.F |
362 |
EXF_MAPFIELDS |
_EXCH_XY_RS( Qnet, myThid ) |
./pkg/exf/exf_mapfields.F |
363 |
EXF_MAPFIELDS |
_EXCH_XY_RS( EmPmR, myThid ) |
./pkg/exf/exf_mapfields.F |
368 |
EXF_MAPFIELDS |
_EXCH_XY_RS( Qsw, myThid ) |
./pkg/exf/exf_mapfields.F |
371 |
EXF_MAPFIELDS |
_EXCH_XY_RS( SST, myThid ) |
./pkg/exf/exf_mapfields.F |
374 |
EXF_MAPFIELDS |
_EXCH_XY_RS( SSS, myThid ) |
./pkg/exf/exf_mapfields.F |
377 |
EXF_MAPFIELDS |
_EXCH_XY_RS( pLoad, myThid ) |
./pkg/exf/exf_mapfields.F |
380 |
EXF_MAPFIELDS |
_EXCH_XY_RS( phiTide2d, myThid ) |
./pkg/exf/exf_mapfields.F |
383 |
EXF_MAPFIELDS |
_EXCH_XY_RS( exf_iceFraction, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
73 |
ICEFRONT_INIT_FIXED |
_EXCH_XY_RS( icefrontlength, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
79 |
ICEFRONT_INIT_FIXED |
_EXCH_XY_RS( R_icefront, myThid ) |
./model/src/calc_surf_dr.F |
214 |
CALC_SURF_DR |
_EXCH_XY_RS(hFac_surfC, myThid ) |
./pkg/obcs/obcs_init_fixed.F |
139 |
OBCS_INIT_FIXED |
_EXCH_XY_RS( OBCS_insideMask, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
172 |
OCN_APPLY_IMPORT |
& _EXCH_XY_RS( pLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
174 |
OCN_APPLY_IMPORT |
IF ( useImportSIce ) _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
176 |
OCN_APPLY_IMPORT |
_EXCH_XY_RS( phi0surf, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
180 |
OCN_APPLY_IMPORT |
& _EXCH_XY_RS( pLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
183 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_RS( EmPmR, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
186 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_RS( saltFlux, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
187 |
OCN_APPLY_IMPORT |
IF ( useImportHFlx ) _EXCH_XY_RS( Qnet , myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
189 |
OCN_APPLY_IMPORT |
IF ( useImportHFlx ) _EXCH_XY_RS( Qsw , myThid ) |
./pkg/offline/offline_fields_load.F |
322 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(sflx0, myThid ) |
./pkg/offline/offline_fields_load.F |
323 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(sflx1, myThid ) |
./model/src/external_fields_load.F |
208 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SST0 , myThid ) |
./model/src/external_fields_load.F |
209 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SST1 , myThid ) |
./model/src/external_fields_load.F |
210 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SSS0 , myThid ) |
./model/src/external_fields_load.F |
211 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SSS1 , myThid ) |
./model/src/external_fields_load.F |
214 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qnet0, myThid ) |
./model/src/external_fields_load.F |
215 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qnet1, myThid ) |
./model/src/external_fields_load.F |
216 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(EmPmR0, myThid ) |
./model/src/external_fields_load.F |
217 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(EmPmR1, myThid ) |
./model/src/external_fields_load.F |
218 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(saltFlux0, myThid ) |
./model/src/external_fields_load.F |
219 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(saltFlux1, myThid ) |
./model/src/external_fields_load.F |
221 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qsw0, myThid ) |
./model/src/external_fields_load.F |
222 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qsw1, myThid ) |
./model/src/external_fields_load.F |
225 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(pLoad0, myThid ) |
./model/src/external_fields_load.F |
226 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(pLoad1, myThid ) |
./pkg/seaice/seaice_fake.F |
83 |
SEAICE_FAKE |
_EXCH_XY_RS( qnet, myThid ) |
./pkg/seaice/seaice_fake.F |
84 |
SEAICE_FAKE |
_EXCH_XY_RS( qsw, myThid ) |
./pkg/seaice/seaice_fake.F |
85 |
SEAICE_FAKE |
_EXCH_XY_RS( empmr, myThid ) |
./pkg/seaice/seaice_init_varia.F |
444 |
SEAICE_INIT_VARIA |
_EXCH_XY_RS(UVM, myThid) |
./pkg/seaice/seaice_model.F |
240 |
SEAICE_MODEL |
_EXCH_XY_RS(EmPmR, myThid ) |
./pkg/seaice/seaice_model.F |
241 |
SEAICE_MODEL |
_EXCH_XY_RS(saltFlux, myThid ) |
./pkg/seaice/seaice_model.F |
242 |
SEAICE_MODEL |
_EXCH_XY_RS(Qnet , myThid ) |
./pkg/seaice/seaice_model.F |
244 |
SEAICE_MODEL |
_EXCH_XY_RS(Qsw , myThid ) |
./pkg/seaice/seaice_model.F |
248 |
SEAICE_MODEL |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./model/src/ini_curvilinear_grid.F |
81 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(xC,myThid) |
./model/src/ini_curvilinear_grid.F |
82 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(yC,myThid) |
./model/src/ini_curvilinear_grid.F |
89 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(rA,myThid ) |
./model/src/ini_depths.F |
138 |
INI_DEPTHS |
_EXCH_XY_RS(R_low, myThid ) |
./model/src/ini_depths.F |
177 |
INI_DEPTHS |
_EXCH_XY_RS( topoZ, myThid ) |
./model/src/ini_depths.F |
220 |
INI_DEPTHS |
_EXCH_XY_RS(Ro_surf, myThid ) |
./model/src/ini_depths.F |
291 |
INI_DEPTHS |
_EXCH_XY_RS( R_low, myThid ) |
./pkg/shelfice/shelfice_init_depths.F |
73 |
SHELFICE_INIT_DEPTHS |
_EXCH_XY_RS( R_shelfIce, myThid ) |
./pkg/streamice/streamice_advect_thickness.F |
168 |
STREAMICE_ADVECT_THICKNESS |
_EXCH_XY_RS(BCMASKx,myThid) |
./pkg/streamice/streamice_advect_thickness.F |
169 |
STREAMICE_ADVECT_THICKNESS |
_EXCH_XY_RS(BCMASKy,myThid) |
./model/src/ini_linear_phisurf.F |
229 |
INI_LINEAR_PHISURF |
_EXCH_XY_RS(phi0surf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
154 |
STREAMICE_INIT_FIXED |
_EXCH_XY_RS(temp_ufacemask,myThid) |
./pkg/streamice/streamice_init_fixed.F |
155 |
STREAMICE_INIT_FIXED |
_EXCH_XY_RS(temp_vfacemask,myThid) |
./pkg/streamice/streamice_init_fixed.F |
255 |
STREAMICE_INIT_FIXED |
_EXCH_XY_RS(temp_hmask,myThid) |
./pkg/streamice/streamice_init_fixed.F |
293 |
STREAMICE_INIT_FIXED |
_EXCH_XY_RS(STREAMICE_calve_mask, myThid ) |
./pkg/streamice/streamice_init_fixed.F |
549 |
STREAMICE_INIT_FIXED |
_EXCH_XY_RS(STREAMICE_ufacemask_bdry, myThid ) |
./pkg/streamice/streamice_init_fixed.F |
550 |
STREAMICE_INIT_FIXED |
_EXCH_XY_RS(STREAMICE_vfacemask_bdry, myThid ) |
./pkg/streamice/streamice_init_varia.F |
545 |
STREAMICE_INIT_VARIA |
_EXCH_XY_RS(STREAMICE_hmask, myThid ) |
./pkg/streamice/streamice_petsc_numerate.F |
141 |
STREAMICE_PETSC_NUMERATE |
_EXCH_XY_RS(streamice_petsc_dofs_u,myThid) |
./pkg/streamice/streamice_petsc_numerate.F |
142 |
STREAMICE_PETSC_NUMERATE |
_EXCH_XY_RS(streamice_petsc_dofs_v,myThid) |
./pkg/streamice/streamice_velmask_upd.F |
215 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RS( STREAMICE_ufacemask, myThid ) |
./pkg/streamice/streamice_velmask_upd.F |
216 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RS( STREAMICE_vfacemask, myThid ) |
./pkg/streamice/streamice_velmask_upd.F |
217 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RS( STREAMICE_umask, myThid ) |
./pkg/streamice/streamice_velmask_upd.F |
218 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RS( STREAMICE_vmask, myThid ) |
./pkg/streamice/streamice_velmask_upd.F |
57 |
STREAMICE_VELMASK_UPD |
_EXCH_XY_RS( STREAMICE_hmask, myThid ) |
./pkg/thsice/thsice_do_advect.F |
131 |
THSICE_DO_ADVECT |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/thsice/thsice_main.F |
265 |
THSICE_MAIN |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/thsice/thsice_main.F |
273 |
THSICE_MAIN |
_EXCH_XY_RS( sIceLoad, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
139 |
INI_DEPTHS |
_EXCH_XY_RS(R_low, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
220 |
INI_DEPTHS |
_EXCH_XY_RS(Ro_surf, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
291 |
INI_DEPTHS |
_EXCH_XY_RS( R_low, myThid ) |
./pkg/atm2d/put_ocnvars.F |
84 |
PUT_OCNVARS |
_EXCH_XY_RS(EmPmR, myThid ) !for NL Free surf? |
./pkg/atm2d/put_ocnvars.F |
85 |
PUT_OCNVARS |
_EXCH_XY_RS(saltFlux, myThid ) |
./pkg/atm2d/put_ocnvars.F |
86 |
PUT_OCNVARS |
_EXCH_XY_RS(Qnet, myThid ) |
./pkg/atm2d/put_ocnvars.F |
87 |
PUT_OCNVARS |
_EXCH_XY_RS(Qsw, myThid ) |
./pkg/atm2d/put_ocnvars.F |
91 |
PUT_OCNVARS |
_EXCH_XY_RS(pLoad, myThid ) |
./pkg/atm2d/put_ocnvars.F |
92 |
PUT_OCNVARS |
_EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/bling/bling_carbonate_init.F |
86 |
BLING_CARBONATE_INIT |
_EXCH_XY_RS(silica0, myThid ) |
./pkg/bling/bling_carbonate_init.F |
87 |
BLING_CARBONATE_INIT |
_EXCH_XY_RS(silica1, myThid ) |
./pkg/bling/bling_fields_load.F |
136 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(dicwind0, myThid ) |
./pkg/bling/bling_fields_load.F |
137 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(dicwind1, myThid ) |
./pkg/bling/bling_fields_load.F |
138 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(atmosp0, myThid ) |
./pkg/bling/bling_fields_load.F |
139 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(atmosp1, myThid ) |
./pkg/bling/bling_fields_load.F |
140 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(silica0, myThid ) |
./pkg/bling/bling_fields_load.F |
141 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(silica1, myThid ) |
./pkg/bling/bling_fields_load.F |
142 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(ice0, myThid ) |
./pkg/bling/bling_fields_load.F |
143 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(ice1, myThid ) |
./pkg/bling/bling_fields_load.F |
144 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(feinput0, myThid ) |
./pkg/bling/bling_fields_load.F |
145 |
BLING_FIELDS_LOAD |
_EXCH_XY_RS(feinput1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
315 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(tair0 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
316 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(tair1 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
317 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qair0 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
318 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qair1 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
319 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(solar0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
320 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(solar1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
321 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(flwdwn0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
322 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(flwdwn1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
323 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(cloud0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
324 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(cloud1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
325 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(wspeed0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
326 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(wspeed1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
333 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(rain0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
334 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(rain1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
335 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(runoff0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
336 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(runoff1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
337 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(snow0 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
338 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(snow1 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
341 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS( thAir0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
342 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS( thAir1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
345 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qnetch0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
346 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qnetch1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
347 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(empch0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
348 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(empch1, myThid ) |
./pkg/cfc/cfc_fields_load.F |
142 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(wind0, myThid ) |
./pkg/cfc/cfc_fields_load.F |
143 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(wind1, myThid ) |
./pkg/cfc/cfc_fields_load.F |
145 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(atmosp0, myThid ) |
./pkg/cfc/cfc_fields_load.F |
146 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(atmosp1, myThid ) |
./pkg/cfc/cfc_fields_load.F |
148 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(ice0, myThid ) |
./pkg/cfc/cfc_fields_load.F |
149 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(ice1, myThid ) |
./pkg/cheapaml/cheapaml.F |
573 |
CHEAPAML |
_EXCH_XY_RS(Qnet,myThid) |
./pkg/cheapaml/cheapaml.F |
576 |
CHEAPAML |
_EXCH_XY_RS(EmPmR,myThid) |
./pkg/ctrl/ctrl_map_forcing.F |
278 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(EmPmR, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
281 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(Qnet, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
284 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(SST, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
287 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(SSS, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
290 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(Qnetm, myThid ) |
./pkg/ctrl/ctrl_map_ini.F |
616 |
CTRL_MAP_INI |
_EXCH_XY_RS( lambdaThetaClimRelax, mythid ) |
./pkg/ctrl/ctrl_map_ini.F |
620 |
CTRL_MAP_INI |
_EXCH_XY_RS( lambdaThetaClimRelax, mythid ) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
205 |
CTRL_MAP_INI_ECCO |
_EXCH_XY_RS( lambdaThetaClimRelax, mythid) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
219 |
CTRL_MAP_INI_ECCO |
_EXCH_XY_RS( lambdaSaltClimRelax, mythid) |
./pkg/diagnostics/diagstats_set_regions.F |
103 |
DIAGSTATS_SET_REGIONS |
_EXCH_XY_RS( tmpVar, myThid ) |
./pkg/dic/dic_fields_load.F |
140 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(dicwind0, myThid ) |
./pkg/dic/dic_fields_load.F |
141 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(dicwind1, myThid ) |
./pkg/dic/dic_fields_load.F |
142 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(atmosp0, myThid ) |
./pkg/dic/dic_fields_load.F |
143 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(atmosp1, myThid ) |
./pkg/dic/dic_fields_load.F |
144 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(silica0, myThid ) |
./pkg/dic/dic_fields_load.F |
145 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(silica1, myThid ) |
./pkg/dic/dic_fields_load.F |
146 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(ice0, myThid ) |
./pkg/dic/dic_fields_load.F |
147 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(ice1, myThid ) |
./pkg/dic/dic_fields_load.F |
149 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(par0, myThid ) |
./pkg/dic/dic_fields_load.F |
150 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(par1, myThid ) |
./pkg/dic/dic_fields_load.F |
153 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(chlinput, myThid ) |
./pkg/dic/dic_fields_load.F |
156 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(feinput0, myThid ) |
./pkg/dic/dic_fields_load.F |
157 |
DIC_FIELDS_LOAD |
_EXCH_XY_RS(feinput1, myThid ) |
./pkg/dic/dic_surfforcing_init.F |
95 |
DIC_SURFFORCING_INIT |
_EXCH_XY_RS(silica0, myThid ) |
./pkg/dic/dic_surfforcing_init.F |
96 |
DIC_SURFFORCING_INIT |
_EXCH_XY_RS(silica1, myThid ) |
./pkg/ebm/ebm_atmosphere.F |
369 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(Qnet , myThid ) |
./pkg/ebm/ebm_atmosphere.F |
370 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(EmPmR , myThid ) |
./pkg/ebm/ebm_load_climatology.F |
84 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_RS( Run, myThid ) |
./pkg/ebm/ebm_wind_perturb.F |
127 |
EBM_WIND_PERTURB |
_EXCH_XY_RS(winPert , myThid ) |