139 |
& sstbar, |
& sstbar, |
140 |
& psbar, |
& psbar, |
141 |
& bpbar, |
& bpbar, |
142 |
|
& iestaubar, |
143 |
& ubar, |
& ubar, |
144 |
& vbar, |
& vbar, |
145 |
& wbar, |
& wbar, |
209 |
_RL bpbar |
_RL bpbar |
210 |
#endif |
#endif |
211 |
|
|
212 |
|
#ifdef ALLOW_IESTAU_COST_CONTRIBUTION |
213 |
|
_RL iestaubar (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
214 |
|
#else |
215 |
|
_RL iestaubar |
216 |
|
#endif |
217 |
|
|
218 |
#if (defined (ALLOW_DRIFTER_COST_CONTRIBUTION) || \ |
#if (defined (ALLOW_DRIFTER_COST_CONTRIBUTION) || \ |
219 |
defined (ALLOW_OBCS_COST_CONTRIBUTION)) |
defined (ALLOW_OBCS_COST_CONTRIBUTION)) |
220 |
_RL ubar (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL ubar (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
278 |
& sstbarfile, |
& sstbarfile, |
279 |
& psbarfile, |
& psbarfile, |
280 |
& bpbarfile, |
& bpbarfile, |
281 |
|
& iestaubarfile, |
282 |
& ubarfile, |
& ubarfile, |
283 |
& vbarfile, |
& vbarfile, |
284 |
& wbarfile, |
& wbarfile, |
292 |
character*(MAX_LEN_FNAM) sstbarfile |
character*(MAX_LEN_FNAM) sstbarfile |
293 |
character*(MAX_LEN_FNAM) psbarfile |
character*(MAX_LEN_FNAM) psbarfile |
294 |
character*(MAX_LEN_FNAM) bpbarfile |
character*(MAX_LEN_FNAM) bpbarfile |
295 |
|
character*(MAX_LEN_FNAM) iestaubarfile |
296 |
character*(MAX_LEN_FNAM) ubarfile |
character*(MAX_LEN_FNAM) ubarfile |
297 |
character*(MAX_LEN_FNAM) vbarfile |
character*(MAX_LEN_FNAM) vbarfile |
298 |
character*(MAX_LEN_FNAM) wbarfile |
character*(MAX_LEN_FNAM) wbarfile |
414 |
& objf_temp0smoo, objf_salt0smoo, |
& objf_temp0smoo, objf_salt0smoo, |
415 |
& objf_etan0, objf_uvel0, objf_vvel0, |
& objf_etan0, objf_uvel0, objf_vvel0, |
416 |
& objf_sst, objf_tmi, objf_sss, |
& objf_sst, objf_tmi, objf_sss, |
417 |
& objf_bp, |
& objf_bp, objf_ies, |
418 |
& objf_usercost, |
& objf_usercost, |
419 |
& objf_ctdt, objf_ctds, |
& objf_ctdt, objf_ctds, |
420 |
& objf_ctdtclim, objf_ctdsclim, |
& objf_ctdtclim, objf_ctdsclim, |
479 |
_RL objf_tmi (nsx,nsy) |
_RL objf_tmi (nsx,nsy) |
480 |
_RL objf_sss (nsx,nsy) |
_RL objf_sss (nsx,nsy) |
481 |
_RL objf_bp (nsx,nsy) |
_RL objf_bp (nsx,nsy) |
482 |
|
_RL objf_ies (nsx,nsy) |
483 |
_RL objf_ctdt (nsx,nsy) |
_RL objf_ctdt (nsx,nsy) |
484 |
_RL objf_ctds (nsx,nsy) |
_RL objf_ctds (nsx,nsy) |
485 |
_RL objf_ctdtclim (nsx,nsy) |
_RL objf_ctdtclim (nsx,nsy) |
579 |
& num_tmi, |
& num_tmi, |
580 |
& num_sss, |
& num_sss, |
581 |
& num_bp, |
& num_bp, |
582 |
|
& num_ies, |
583 |
& num_ctdt, |
& num_ctdt, |
584 |
& num_ctds, |
& num_ctds, |
585 |
& num_ctdtclim, |
& num_ctdtclim, |
665 |
_RL num_tmi (nsx,nsy) |
_RL num_tmi (nsx,nsy) |
666 |
_RL num_sss (nsx,nsy) |
_RL num_sss (nsx,nsy) |
667 |
_RL num_bp (nsx,nsy) |
_RL num_bp (nsx,nsy) |
668 |
|
_RL num_ies (nsx,nsy) |
669 |
_RL num_ctdt (nsx,nsy) |
_RL num_ctdt (nsx,nsy) |
670 |
_RL num_ctds (nsx,nsy) |
_RL num_ctds (nsx,nsy) |
671 |
_RL num_ctdtclim (nsx,nsy) |
_RL num_ctdtclim (nsx,nsy) |
748 |
& mult_tmi, |
& mult_tmi, |
749 |
& mult_sss, |
& mult_sss, |
750 |
& mult_bp, |
& mult_bp, |
751 |
|
& mult_ies, |
752 |
& mult_ctdt, |
& mult_ctdt, |
753 |
& mult_ctds, |
& mult_ctds, |
754 |
& mult_ctdtclim, |
& mult_ctdtclim, |
815 |
_RL mult_tmi |
_RL mult_tmi |
816 |
_RL mult_sss |
_RL mult_sss |
817 |
_RL mult_bp |
_RL mult_bp |
818 |
|
_RL mult_ies |
819 |
_RL mult_ctdt |
_RL mult_ctdt |
820 |
_RL mult_ctds |
_RL mult_ctds |
821 |
_RL mult_ctdtclim |
_RL mult_ctdtclim |
942 |
& ssterrfile, |
& ssterrfile, |
943 |
& ssserrfile, |
& ssserrfile, |
944 |
& bperrfile, |
& bperrfile, |
945 |
|
& ieserrfile, |
946 |
& atemp_errfile, |
& atemp_errfile, |
947 |
& aqh_errfile, |
& aqh_errfile, |
948 |
& precip_errfile, |
& precip_errfile, |
998 |
character*(MAX_LEN_FNAM) ssterrfile |
character*(MAX_LEN_FNAM) ssterrfile |
999 |
character*(MAX_LEN_FNAM) ssserrfile |
character*(MAX_LEN_FNAM) ssserrfile |
1000 |
character*(MAX_LEN_FNAM) bperrfile |
character*(MAX_LEN_FNAM) bperrfile |
1001 |
|
character*(MAX_LEN_FNAM) ieserrfile |
1002 |
character*(MAX_LEN_FNAM) atemp_errfile |
character*(MAX_LEN_FNAM) atemp_errfile |
1003 |
character*(MAX_LEN_FNAM) aqh_errfile |
character*(MAX_LEN_FNAM) aqh_errfile |
1004 |
character*(MAX_LEN_FNAM) precip_errfile |
character*(MAX_LEN_FNAM) precip_errfile |
1062 |
& wkapredi,wkapredi2,wkaprediFld, |
& wkapredi,wkapredi2,wkaprediFld, |
1063 |
& wedtaux,wedtaux2,wedtauxFld, |
& wedtaux,wedtaux2,wedtauxFld, |
1064 |
& wedtauy,wedtauy2,wedtauyFld, |
& wedtauy,wedtauy2,wedtauyFld, |
1065 |
& wsst,wsss,wbp, |
& wsst,wsss,wbp, wies, |
1066 |
& wtp,wers,wgfo, |
& wtp,wers,wgfo, |
1067 |
& wp,wsshv4, |
& wp,wsshv4, |
1068 |
& wctdt,wctds, |
& wctdt,wctds, |
1111 |
_RL wsst (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wsst (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1112 |
_RL wsss (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wsss (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1113 |
_RL wbp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wbp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1114 |
|
_RL wies (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1115 |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1116 |
_RL wsshv4 (1-olx:snx+olx,1-oly:sny+oly,NSSHV4COST,nsx,nsy) |
_RL wsshv4 (1-olx:snx+olx,1-oly:sny+oly,NSSHV4COST,nsx,nsy) |
1117 |
_RL wers (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wers (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1251 |
c tmidat - reference TMI sea surface temperature data. |
c tmidat - reference TMI sea surface temperature data. |
1252 |
c sssdat - reference sea surface temperature data. |
c sssdat - reference sea surface temperature data. |
1253 |
c bpdat - bottom pressure from time-varying GRACE. |
c bpdat - bottom pressure from time-varying GRACE. |
1254 |
|
c iesdat - roundtrip travel time from IES |
1255 |
c tauxmask - mask for reference wind stress data. |
c tauxmask - mask for reference wind stress data. |
1256 |
c tauymask - mask for reference wind stress data. |
c tauymask - mask for reference wind stress data. |
1257 |
c scatxmask - mask for scat wind stress data. |
c scatxmask - mask for scat wind stress data. |
1279 |
& scatxdat, |
& scatxdat, |
1280 |
& scatydat, |
& scatydat, |
1281 |
& bpdat, |
& bpdat, |
1282 |
|
& iesdat, |
1283 |
& sstmask, |
& sstmask, |
1284 |
& tmimask, |
& tmimask, |
1285 |
& sssmask, |
& sssmask, |
1286 |
& bpmask, |
& bpmask, |
1287 |
|
& iesmask, |
1288 |
& tauxmask, |
& tauxmask, |
1289 |
& tauymask, |
& tauymask, |
1290 |
& scatxmask, |
& scatxmask, |
1312 |
_RL scatxdat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL scatxdat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1313 |
_RL scatydat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL scatydat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1314 |
_RL bpdat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL bpdat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1315 |
|
_RL iesdat (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1316 |
_RL tauxmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL tauxmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1317 |
_RL tauymask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL tauymask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1318 |
_RL scatxmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL scatxmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1321 |
_RL tmimask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL tmimask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1322 |
_RL sssmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL sssmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1323 |
_RL bpmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL bpmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1324 |
|
_RL iesmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1325 |
_RL sdat (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
_RL sdat (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
1326 |
_RL tpmean (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL tpmean (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1327 |
_RL tpmeanmask(1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL tpmeanmask(1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1374 |
& tmidatfile, |
& tmidatfile, |
1375 |
& sssdatfile, |
& sssdatfile, |
1376 |
& bpdatfile, |
& bpdatfile, |
1377 |
|
& iesdatfile, |
1378 |
& topexmeanfile, |
& topexmeanfile, |
1379 |
& topexfile, |
& topexfile, |
1380 |
& ersfile, |
& ersfile, |
1400 |
character*(MAX_LEN_FNAM) tmidatfile |
character*(MAX_LEN_FNAM) tmidatfile |
1401 |
character*(MAX_LEN_FNAM) sssdatfile |
character*(MAX_LEN_FNAM) sssdatfile |
1402 |
character*(MAX_LEN_FNAM) bpdatfile |
character*(MAX_LEN_FNAM) bpdatfile |
1403 |
|
character*(MAX_LEN_FNAM) iesdatfile |
1404 |
character*(MAX_LEN_FNAM) topexmeanfile |
character*(MAX_LEN_FNAM) topexmeanfile |
1405 |
character*(MAX_LEN_FNAM) topexfile |
character*(MAX_LEN_FNAM) topexfile |
1406 |
character*(MAX_LEN_FNAM) ersfile |
character*(MAX_LEN_FNAM) ersfile |
1451 |
& tmistartdate, |
& tmistartdate, |
1452 |
& sssstartdate, |
& sssstartdate, |
1453 |
& bpstartdate, |
& bpstartdate, |
1454 |
|
& iesstartdate, |
1455 |
& topexstartdate, |
& topexstartdate, |
1456 |
& ersstartdate, |
& ersstartdate, |
1457 |
& gfostartdate |
& gfostartdate |
1463 |
integer tmistartdate(4) |
integer tmistartdate(4) |
1464 |
integer sssstartdate(4) |
integer sssstartdate(4) |
1465 |
integer bpstartdate(4) |
integer bpstartdate(4) |
1466 |
|
integer iesstartdate(4) |
1467 |
integer topexstartdate(4) |
integer topexstartdate(4) |
1468 |
integer ersstartdate(4) |
integer ersstartdate(4) |
1469 |
integer gfostartdate(4) |
integer gfostartdate(4) |
1477 |
& sssstartdate2, |
& sssstartdate2, |
1478 |
& bpstartdate1, |
& bpstartdate1, |
1479 |
& bpstartdate2, |
& bpstartdate2, |
1480 |
|
& iesstartdate1, |
1481 |
|
& iesstartdate2, |
1482 |
& argotstartdate1, |
& argotstartdate1, |
1483 |
& argotstartdate2, |
& argotstartdate2, |
1484 |
& argosstartdate1, |
& argosstartdate1, |
1500 |
integer sssstartdate2 |
integer sssstartdate2 |
1501 |
integer bpstartdate1 |
integer bpstartdate1 |
1502 |
integer bpstartdate2 |
integer bpstartdate2 |
1503 |
|
integer iesstartdate1 |
1504 |
|
integer iesstartdate2 |
1505 |
integer argotstartdate1 |
integer argotstartdate1 |
1506 |
integer argotstartdate2 |
integer argotstartdate2 |
1507 |
integer argosstartdate1 |
integer argosstartdate1 |