- Timestamp:
- 2021-07-27T11:40:32+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/IOM/prtctl.F90
r15057 r15148 61 61 & tab3d_1 = REAL(tab3d_1, 2*wp), tab3d_2 = REAL(tab3d_2, 2*wp), & 62 62 & mask1 = mask1, mask2 = mask2, & 63 & clinfo = clinfo, clinfo1 = clinfo1, clinfo2 = clinfo2, clinfo3 = clinfo3 )63 & clinfo = clinfo, clinfo1 = clinfo1, clinfo2 = clinfo2, clinfo3 = clinfo3, kdim = kdim ) 64 64 ELSEIF( PRESENT(tab2d_1) ) THEN 65 65 CALL prt_ctl_t(ktab2d_1 = is_tile(tab2d_1), ktab3d_1 = 0, ktab4d_1 = 0, ktab2d_2 = 0, ktab3d_2 = 0, & … … 71 71 & tab3d_1 = REAL(tab3d_1, 2*wp), & 72 72 & mask1 = mask1, & 73 & clinfo = clinfo, clinfo1 = clinfo1, clinfo3 = clinfo3 )73 & clinfo = clinfo, clinfo1 = clinfo1, clinfo3 = clinfo3, kdim = kdim ) 74 74 ELSEIF( PRESENT(tab4d_1) ) THEN 75 75 CALL prt_ctl_t(ktab2d_1 = 0, ktab3d_1 = 0, ktab4d_1 = is_tile(tab4d_1), ktab2d_2 = 0, ktab3d_2 = 0, & 76 76 & tab4d_1 = REAL(tab4d_1, 2*wp), & 77 77 & mask1 = mask1, & 78 & clinfo = clinfo, clinfo1 = clinfo1, clinfo3 = clinfo3 )78 & clinfo = clinfo, clinfo1 = clinfo1, clinfo3 = clinfo3, kdim = kdim ) 79 79 ENDIF 80 80
Note: See TracChangeset
for help on using the changeset viewer.