46 integer,
intent(in) :: ng
50 logical,
save :: recordless = .false.
52 logical,
dimension(3) :: update = &
53 & (/ .FALSE., .FALSE., .FALSE. /)
55 integer :: ILB, IUB, JLB, JUB
56 integer :: LBi, UBi, LBj, UBj
57 integer :: i, ic, my_tile
64 character (len=*),
parameter :: MyFile = &
70 ilb=
bounds(ng)%LBi(my_tile)
71 iub=
bounds(ng)%UBi(my_tile)
72 jlb=
bounds(ng)%LBj(my_tile)
73 jub=
bounds(ng)%UBj(my_tile)
77 lbi=lbound(
grid(ng)%h,dim=1)
78 ubi=ubound(
grid(ng)%h,dim=1)
79 lbj=lbound(
grid(ng)%h,dim=2)
80 ubj=ubound(
grid(ng)%h,dim=2)
105# if defined PIO_LIB && defined DISTRIBUTE
108 & 1,
ssf(ng), recordless, update(1), &
109 & 1,
nsrc(ng), 1, 2, 1,
nsrc(ng), 1, &
121# if defined PIO_LIB && defined DISTRIBUTE
124 & 1,
ssf(ng), recordless, update(1), &
125 & 1,
nsrc(ng),
n(ng), 2, 1,
nsrc(ng),
n(ng), &
126 &
sources(ng) % TsrcG(:,:,:,i))
133# if !defined ANA_WINDS && \
134 ((defined bulk_fluxes &&
142# if defined PIO_LIB && defined DISTRIBUTE
146 & lbi, ubi, lbj, ubj, 2, 1, &
148 &
grid(ng) % rmask, &
154# if defined PIO_LIB && defined DISTRIBUTE
158 & lbi, ubi, lbj, ubj, 2, 1, &
160 &
grid(ng) % rmask, &
167# if !defined ANA_SMFLUX && \
175# if defined PIO_LIB && defined DISTRIBUTE
179 & lbi, ubi, lbj, ubj, 2, 1, &
181 &
grid(ng) % umask, &
187# if defined PIO_LIB && defined DISTRIBUTE
191 & lbi, ubi, lbj, ubj, 2, 1, &
193 &
grid(ng) % vmask, &
200# if defined FORWARD_FLUXES || defined FRC_COUPLING
207# if defined PIO_LIB && defined DISTRIBUTE
210 & 1,
blk(ng), update(1), &
211 & lbi, ubi, lbj, ubj, 2, 1, &
213 &
grid(ng) % umask, &
219# if defined PIO_LIB && defined DISTRIBUTE
222 & 1,
blk(ng), update(1), &
223 & lbi, ubi, lbj, ubj, 2, 1, &
225 &
grid(ng) % vmask, &
231# if !defined ANA_PAIR && \
232 (defined atm_press || defined bulk_fluxes || \
234# if !(defined FRC_COUPLING || defined FORWARD_FLUXES)
241# if defined PIO_LIB && defined DISTRIBUTE
245 & lbi, ubi, lbj, ubj, 2, 1, &
247 &
grid(ng) % rmask, &
259# if defined PIO_LIB && defined DISTRIBUTE
262 & 1,
blk(ng), update(1), &
263 & lbi, ubi, lbj, ubj, 2, 1, &
265 &
grid(ng) % rmask, &
272# if !defined ANA_WWAVE && defined WAVE_DATA
280# if defined PIO_LIB && defined DISTRIBUTE
284 & lbi, ubi, lbj, ubj, 2, 1, &
286 &
grid(ng) % rmask, &
295# if defined PIO_LIB && defined DISTRIBUTE
299 & lbi, ubi, lbj, ubj, 2, 1, &
301 &
grid(ng) % rmask, &
310# if defined PIO_LIB && defined DISTRIBUTE
314 & lbi, ubi, lbj, ubj, 2, 1, &
316 &
grid(ng) % rmask, &
322# ifdef WAVES_TOP_PERIOD
325# if defined PIO_LIB && defined DISTRIBUTE
329 & lbi, ubi, lbj, ubj, 2, 1, &
331 &
grid(ng) % rmask, &
333 &
forces(ng) % Pwave_topG)
337# ifdef WAVES_BOT_PERIOD
340# if defined PIO_LIB && defined DISTRIBUTE
344 & lbi, ubi, lbj, ubj, 2, 1, &
346 &
grid(ng) % rmask, &
348 &
forces(ng) % Pwave_botG)
355# if defined PIO_LIB && defined DISTRIBUTE
359 & lbi, ubi, lbj, ubj, 2, 1, &
361 &
grid(ng) % rmask, &
367# if defined TKE_WAVEDISS
370# if defined PIO_LIB && defined DISTRIBUTE
374 & lbi, ubi, lbj, ubj, 2, 1, &
376 &
grid(ng) % rmask, &
378 &
forces(ng) % Wave_dissipG)
382# if defined SVENDSEN_ROLLER
385# if defined PIO_LIB && defined DISTRIBUTE
389 & lbi, ubi, lbj, ubj, 2, 1, &
391 &
grid(ng) % rmask, &
393 &
forces(ng) % Wave_breakG)
400# if !defined ANA_CLOUD && defined CLOUDS
407# if defined PIO_LIB && defined DISTRIBUTE
411 & lbi, ubi, lbj, ubj, 2, 1, &
413 &
grid(ng) % rmask, &
419# if defined SHORTWAVE && !defined ANA_SRFLUX
420# ifdef FORWARD_FLUXES
427# if defined PIO_LIB && defined DISTRIBUTE
430 & 1,
blk(ng), update(1), &
431 & lbi, ubi, lbj, ubj, 2, 1, &
433 &
grid(ng) % rmask, &
440# if !(defined BULK_FLUXES || defined FRC_COUPLING)
447# if defined PIO_LIB && defined DISTRIBUTE
451 & lbi, ubi, lbj, ubj, 2, 1, &
453 &
grid(ng) % rmask, &
462# if (defined BULK_FLUXES && !defined FORWARD_FLUXES) && \
470# if defined PIO_LIB && defined DISTRIBUTE
474 & lbi, ubi, lbj, ubj, 2, 1, &
476 &
grid(ng) % rmask, &
482# if (defined BULK_FLUXES && !defined FORWARD_FLUXES) && \
490# if defined PIO_LIB && defined DISTRIBUTE
494 & lbi, ubi, lbj, ubj, 2, 1, &
496 &
grid(ng) % rmask, &
502# if !defined ANA_TAIR && \
503 ((defined bulk_fluxes &&
505 (defined shortwave && defined ana_srflux && defined albedo))
512# if defined PIO_LIB && defined DISTRIBUTE
516 & lbi, ubi, lbj, ubj, 2, 1, &
518 &
grid(ng) % rmask, &
524# if !defined ANA_HUMIDITY && \
525 ((defined bulk_fluxes &&
533# if defined PIO_LIB && defined DISTRIBUTE
537 & lbi, ubi, lbj, ubj, 2, 1, &
539 &
grid(ng) % rmask, &
545# if !defined ANA_RAIN && \
546 (defined bulk_fluxes &&
553# if defined PIO_LIB && defined DISTRIBUTE
557 & lbi, ubi, lbj, ubj, 2, 1, &
559 &
grid(ng) % rmask, &
566# if !(defined BULK_FLUXES || defined FORWARD_FLUXES)
574# if defined PIO_LIB && defined DISTRIBUTE
578 & lbi, ubi, lbj, ubj, 2, 1, &
580 &
grid(ng) % rmask, &
585# elif defined FORWARD_FLUXES
592# if defined PIO_LIB && defined DISTRIBUTE
595 & 1,
blk(ng), update(1), &
596 & lbi, ubi, lbj, ubj, 2, 1, &
598 &
grid(ng) % rmask, &
605# if !defined ANA_SST && defined QCORRECTION
613# if defined PIO_LIB && defined DISTRIBUTE
617 & lbi, ubi, lbj, ubj, 2, 1, &
619 &
grid(ng) % rmask, &
625# if !defined ANA_DQDSST && defined QCORRECTION
634# if defined PIO_LIB && defined DISTRIBUTE
638 & lbi, ubi, lbj, ubj, 2, 1, &
640 &
grid(ng) % rmask, &
654# if defined PIO_LIB && defined DISTRIBUTE
658 & lbi, ubi, lbj, ubj, 2, 1, &
660 &
grid(ng) % rmask, &
666# if defined SALINITY && !defined ANA_SSFLUX
667# if !(defined EMINUSP || defined FORWARD_FLUXES || \
668 defined frc_coupling || defined srelaxation)
675# if defined PIO_LIB && defined DISTRIBUTE
679 & lbi, ubi, lbj, ubj, 2, 1, &
681 &
grid(ng) % rmask, &
686# elif (defined EMINUSP || defined FORWARD_FLUXES || \
687 defined frc_coupling)
694# if defined PIO_LIB && defined DISTRIBUTE
697 & 1,
blk(ng), update(1), &
698 & lbi, ubi, lbj, ubj, 2, 1, &
700 &
grid(ng) % rmask, &
706# if !defined ANA_SSS && (defined SCORRECTION || defined SRELAXATION)
713# if defined PIO_LIB && defined DISTRIBUTE
717 & lbi, ubi, lbj, ubj, 2, 1, &
719 &
grid(ng) % rmask, &
733# if defined PIO_LIB && defined DISTRIBUTE
737 & lbi, ubi, lbj, ubj, 2, 1, &
739 &
grid(ng) % rmask, &
746# if defined BIOLOGY || defined SEDIMENT || defined T_PASSIVE
755# if defined PIO_LIB && defined DISTRIBUTE
759 & lbi, ubi, lbj, ubj, 2, 1, &
761 &
grid(ng) % rmask, &
763 &
forces(ng) % stfluxG(:,:,:,i))
776# if defined PIO_LIB && defined DISTRIBUTE
780 & lbi, ubi, lbj, ubj, 2, 1, &
782 &
grid(ng) % rmask, &
784 &
forces(ng) % btfluxG(:,:,:,i))
801# if defined PIO_LIB && defined DISTRIBUTE
805 & recordless, update(1), &
806 & jlb, jub, 1, 2, 0,
mm(ng)+1, 1, &
814# if defined PIO_LIB && defined DISTRIBUTE
818 & recordless, update(1), &
819 & jlb, jub, 1, 2, 0,
mm(ng)+1, 1, &
827# if defined PIO_LIB && defined DISTRIBUTE
831 & recordless, update(1), &
832 & ilb, iub, 1, 2, 0,
lm(ng)+1, 1, &
840# if defined PIO_LIB && defined DISTRIBUTE
844 & recordless, update(1), &
845 & ilb, iub, 1, 2, 0,
lm(ng)+1, 1, &
858# if defined PIO_LIB && defined DISTRIBUTE
862 & recordless, update(1), &
863 & jlb, jub, 1, 2, 0,
mm(ng)+1, 1, &
871# if defined PIO_LIB && defined DISTRIBUTE
875 & recordless, update(1), &
876 & jlb, jub, 1, 2, 1,
mm(ng)+1, 1, &
884# if defined PIO_LIB && defined DISTRIBUTE
888 & recordless, update(1), &
889 & jlb, jub, 1, 2, 0,
mm(ng)+1, 1, &
897# if defined PIO_LIB && defined DISTRIBUTE
901 & recordless, update(1), &
902 & jlb, jub, 1, 2, 1,
mm(ng)+1, 1, &
910# if defined PIO_LIB && defined DISTRIBUTE
914 & recordless, update(1), &
915 & ilb, iub, 1, 2, 1,
lm(ng)+1, 1, &
923# if defined PIO_LIB && defined DISTRIBUTE
927 & recordless, update(1), &
928 & ilb, iub, 1, 2, 0,
lm(ng)+1, 1, &
936# if defined PIO_LIB && defined DISTRIBUTE
940 & recordless, update(1), &
941 & ilb, iub, 1, 2, 1,
lm(ng)+1, 1, &
949# if defined PIO_LIB && defined DISTRIBUTE
953 & recordless, update(1), &
954 & ilb, iub, 1, 2, 0,
lm(ng)+1, 1, &
968# if defined PIO_LIB && defined DISTRIBUTE
972 & recordless, update(1), &
973 & jlb, jub,
n(ng), 2, 0,
mm(ng)+1,
n(ng), &
981# if defined PIO_LIB && defined DISTRIBUTE
985 & recordless, update(1), &
986 & jlb, jub,
n(ng), 2, 1,
mm(ng)+1,
n(ng), &
994# if defined PIO_LIB && defined DISTRIBUTE
998 & recordless, update(1), &
999 & jlb, jub,
n(ng), 2, 0,
mm(ng)+1,
n(ng), &
1007# if defined PIO_LIB && defined DISTRIBUTE
1011 & recordless, update(1), &
1012 & jlb, jub,
n(ng), 2, 1,
mm(ng)+1,
n(ng), &
1020# if defined PIO_LIB && defined DISTRIBUTE
1024 & recordless, update(1), &
1025 & ilb, iub,
n(ng), 2, 1,
lm(ng)+1,
n(ng), &
1033# if defined PIO_LIB && defined DISTRIBUTE
1037 & recordless, update(1), &
1038 & ilb, iub,
n(ng), 2, 0,
lm(ng)+1,
n(ng), &
1046# if defined PIO_LIB && defined DISTRIBUTE
1050 & recordless, update(1), &
1051 & ilb, iub,
n(ng), 2, 1,
lm(ng)+1,
n(ng), &
1059# if defined PIO_LIB && defined DISTRIBUTE
1063 & recordless, update(1), &
1064 & ilb, iub,
n(ng), 2, 0,
lm(ng)+1,
n(ng), &
1078# if defined PIO_LIB && defined DISTRIBUTE
1082 & recordless, update(1), &
1083 & jlb, jub,
n(ng), 2, 0,
mm(ng)+1,
n(ng), &
1093# if defined PIO_LIB && defined DISTRIBUTE
1097 & recordless, update(1), &
1098 & jlb, jub,
n(ng), 2, 0,
mm(ng)+1,
n(ng), &
1108# if defined PIO_LIB && defined DISTRIBUTE
1112 & recordless, update(1), &
1113 & ilb, iub,
n(ng), 2, 0,
lm(ng)+1,
n(ng), &
1114 &
boundary(ng) % tG_south(:,:,:,i))
1123# if defined PIO_LIB && defined DISTRIBUTE
1127 & recordless, update(1), &
1128 & ilb, iub,
n(ng), 2, 0,
lm(ng)+1,
n(ng), &
1129 &
boundary(ng) % tG_north(:,:,:,i))
1147# if defined PIO_LIB && defined DISTRIBUTE
1151 & lbi, ubi, lbj, ubj, 2, 1, &
1153 &
grid(ng) % rmask, &
1165# if defined PIO_LIB && defined DISTRIBUTE
1169 & lbi, ubi, lbj, ubj, 2, 1, &
1171 &
grid(ng) % umask, &
1173 &
clima(ng) % ubarclmG)
1177# if defined PIO_LIB && defined DISTRIBUTE
1181 & lbi, ubi, lbj, ubj, 2, 1, &
1183 &
grid(ng) % vmask, &
1185 &
clima(ng) % vbarclmG)
1196# if defined PIO_LIB && defined DISTRIBUTE
1200 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1202 &
grid(ng) % umask, &
1204 &
clima(ng) % uclmG)
1208# if defined PIO_LIB && defined DISTRIBUTE
1212 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1214 &
grid(ng) % vmask, &
1216 &
clima(ng) % vclmG)
1230# if defined PIO_LIB && defined DISTRIBUTE
1234 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1236 &
grid(ng) % rmask, &
1238 &
clima(ng) % tclmG(:,:,:,:,ic))
1254# if defined PIO_LIB && defined DISTRIBUTE
1255 &
fwd(ng)%pioFile, &
1257 & 1,
fwd(ng), update(1), &
1258 & lbi, ubi, lbj, ubj, 2, 1, &
1260 &
grid(ng) % rmask, &
1262 &
ocean(ng) % zetaG)
1268# if defined PIO_LIB && defined DISTRIBUTE
1269 &
fwd(ng)%pioFile, &
1271 & 1,
fwd(ng), update(1), &
1272 & lbi, ubi, lbj, ubj, 2, 1, &
1274 &
grid(ng) % umask, &
1276 &
ocean(ng) % ubarG)
1280# if defined PIO_LIB && defined DISTRIBUTE
1281 &
fwd(ng)%pioFile, &
1283 & 1,
fwd(ng), update(1), &
1284 & lbi, ubi, lbj, ubj, 2, 1, &
1286 &
grid(ng) % vmask, &
1288 &
ocean(ng) % vbarG)
1296# if defined PIO_LIB && defined DISTRIBUTE
1297 &
fwd(ng)%pioFile, &
1299 & 1,
fwd(ng), update(1), &
1300 & lbi, ubi, lbj, ubj, 2, 1, &
1302 &
grid(ng) % rmask, &
1304 &
ocean(ng) % rzetaG)
1308# if defined PIO_LIB && defined DISTRIBUTE
1309 &
fwd(ng)%pioFile, &
1311 & 1,
fwd(ng), update(1), &
1312 & lbi, ubi, lbj, ubj, 2, 1, &
1314 &
grid(ng) % umask, &
1316 &
ocean(ng) % rubarG)
1320# if defined PIO_LIB && defined DISTRIBUTE
1321 &
fwd(ng)%pioFile, &
1323 & 1,
fwd(ng), update(1), &
1324 & lbi, ubi, lbj, ubj, 2, 1, &
1326 &
grid(ng) % vmask, &
1328 &
ocean(ng) % rvbarG)
1337# if defined PIO_LIB && defined DISTRIBUTE
1338 &
fwd(ng)%pioFile, &
1340 & 1,
fwd(ng), update(1), &
1341 & lbi, ubi, lbj, ubj, 2, 1, &
1343 &
grid(ng) % umask, &
1349# if defined PIO_LIB && defined DISTRIBUTE
1350 &
fwd(ng)%pioFile, &
1352 & 1,
fwd(ng), update(1), &
1353 & lbi, ubi, lbj, ubj, 2, 1, &
1355 &
grid(ng) % umask, &
1361# if defined PIO_LIB && defined DISTRIBUTE
1362 &
fwd(ng)%pioFile, &
1364 & 1,
fwd(ng), update(1), &
1365 & lbi, ubi, lbj, ubj, 2, 1, &
1367 &
grid(ng) % vmask, &
1373# if defined PIO_LIB && defined DISTRIBUTE
1374 &
fwd(ng)%pioFile, &
1376 & 1,
fwd(ng), update(1), &
1377 & lbi, ubi, lbj, ubj, 2, 1, &
1379 &
grid(ng) % vmask, &
1387# if defined PIO_LIB && defined DISTRIBUTE
1388 &
fwd(ng)%pioFile, &
1390 & 1,
fwd(ng), update(1), &
1391 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1393 &
grid(ng) % umask, &
1399# if defined PIO_LIB && defined DISTRIBUTE
1400 &
fwd(ng)%pioFile, &
1402 & 1,
fwd(ng), update(1), &
1403 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1405 &
grid(ng) % vmask, &
1415# if defined PIO_LIB && defined DISTRIBUTE
1416 &
fwd(ng)%pioFile, &
1418 & 1,
fwd(ng), update(1), &
1419 & lbi, ubi, lbj, ubj, 2, 1, &
1421 &
grid(ng) % umask, &
1427# if defined PIO_LIB && defined DISTRIBUTE
1428 &
fwd(ng)%pioFile, &
1430 & 1,
fwd(ng), update(1), &
1431 & lbi, ubi, lbj, ubj, 2, 1, &
1433 &
grid(ng) % vmask, &
1439# if defined PIO_LIB && defined DISTRIBUTE
1440 &
fwd(ng)%pioFile, &
1442 & 1,
fwd(ng), update(1), &
1443 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1445 &
grid(ng) % umask, &
1451# if defined PIO_LIB && defined DISTRIBUTE
1452 &
fwd(ng)%pioFile, &
1454 & 1,
fwd(ng), update(1), &
1455 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1457 &
grid(ng) % vmask, &
1467# if defined PIO_LIB && defined DISTRIBUTE
1468 &
fwd(ng)%pioFile, &
1470 & 1,
fwd(ng), update(1), &
1471 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1473 &
grid(ng) % rmask, &
1475 &
ocean(ng) % tG(:,:,:,:,i))
1479# ifdef FORWARD_MIXING
1487# if defined PIO_LIB && defined DISTRIBUTE
1488 &
fwd(ng)%pioFile, &
1490 & 1,
fwd(ng), update(1), &
1491 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1493 &
grid(ng) % rmask, &
1495 &
mixing(ng) % AktG(:,:,:,:,i))
1503# if defined PIO_LIB && defined DISTRIBUTE
1504 &
fwd(ng)%pioFile, &
1506 & 1,
fwd(ng), update(1), &
1507 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1509 &
grid(ng) % rmask, &
1516# if defined MY25_MIXING_NOT_YET || defined GLS_MIXING_NOT_YET
1521# if defined PIO_LIB && defined DISTRIBUTE
1522 &
fwd(ng)%pioFile, &
1524 & 1,
fwd(ng), update(1), &
1525 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1527 &
grid(ng) % rmask, &
1535# if defined PIO_LIB && defined DISTRIBUTE
1536 &
fwd(ng)%pioFile, &
1538 & 1,
fwd(ng), update(1), &
1539 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1541 &
grid(ng) % rmask, &
1549# if defined PIO_LIB && defined DISTRIBUTE
1550 &
fwd(ng)%pioFile, &
1552 & 1,
fwd(ng), update(1), &
1553 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1555 &
grid(ng) % rmask, &
1563# if defined PIO_LIB && defined DISTRIBUTE
1564 &
fwd(ng)%pioFile, &
1566 & 1,
fwd(ng), update(1), &
1567 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1569 &
grid(ng) % rmask, &
1574# ifdef GLS_MIXING_NOT_YET
1579# if defined PIO_LIB && defined DISTRIBUTE
1580 &
fwd(ng)%pioFile, &
1582 & 1,
fwd(ng), update(1), &
1583 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1585 &
grid(ng) % rmask, &
1592# ifdef LMD_MIXING_NOT_YET
1597# if defined PIO_LIB && defined DISTRIBUTE
1598 &
fwd(ng)%pioFile, &
1600 & 1,
fwd(ng), update(1), &
1601 & lbi, ubi, lbj, ubj, 2, 1, &
1603 &
grid(ng) % rmask, &
1609# ifdef LMD_BKPP_NOT_YET
1614# if defined PIO_LIB && defined DISTRIBUTE
1615 &
fwd(ng)%pioFile, &
1617 & 1,
fwd(ng), update(1), &
1618 & lbi, ubi, lbj, ubj, 2, 1, &
1620 &
grid(ng) % rmask, &
1626# ifdef LMD_NONLOCAL_NOT_YET
1632# if defined PIO_LIB && defined DISTRIBUTE
1633 &
fwd(ng)%pioFile, &
1635 & 1,
fwd(ng), update(1), &
1636 & lbi, ubi, lbj, ubj, 0,
n(ng), 2, 1, &
1638 &
grid(ng) % rmask, &
1640 &
mixing(ng) % ghatsG(:,:,:,i))
1646# ifdef WEAK_CONSTRAINT
1654# if defined PIO_LIB && defined DISTRIBUTE
1655 &
tlf(ng)%pioFile, &
1657 & 1,
tlf(ng), update(1), &
1658 & lbi, ubi, lbj, ubj, 2, 1, &
1660 &
grid(ng) % rmask, &
1662 &
ocean(ng) % f_zetaG)
1670# if defined PIO_LIB && defined DISTRIBUTE
1671 &
tlf(ng)%pioFile, &
1673 & 1,
tlf(ng), update(1), &
1674 & lbi, ubi, lbj, ubj, 2, 1, &
1676 &
grid(ng) % umask, &
1678 &
ocean(ng) % f_ubarG)
1682# if defined PIO_LIB && defined DISTRIBUTE
1683 &
tlf(ng)%pioFile, &
1685 & 1,
tlf(ng), update(1), &
1686 & lbi, ubi, lbj, ubj, 2, 1, &
1688 &
grid(ng) % vmask, &
1690 &
ocean(ng) % f_vbarG)
1699# if defined PIO_LIB && defined DISTRIBUTE
1700 &
tlf(ng)%pioFile, &
1702 & 1,
tlf(ng), update(1), &
1703 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1705 &
grid(ng) % umask, &
1711# if defined PIO_LIB && defined DISTRIBUTE
1712 &
tlf(ng)%pioFile, &
1714 & 1,
tlf(ng), update(1), &
1715 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1717 &
grid(ng) % vmask, &
1726# if defined PIO_LIB && defined DISTRIBUTE
1727 &
tlf(ng)%pioFile, &
1729 & 1,
tlf(ng), update(1), &
1730 & lbi, ubi, lbj, ubj, 1,
n(ng), 2, 1, &
1732 &
grid(ng) % rmask, &
1734 &
ocean(ng) % f_tG(:,:,:,:,i))