Changeset 13295 for NEMO/trunk/tests/ISOMIP
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- Location:
- NEMO/trunk/tests/ISOMIP/MY_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/ISOMIP/MY_SRC/usrdef_hgr.F90
r13286 r13295 77 77 ! 78 78 ! !== grid point position ==! (in degrees) 79 DO_2D _11_1179 DO_2D( 1, 1, 1, 1 ) 80 80 ! ! longitude (west coast at lon=0°) 81 81 plamt(ji,jj) = rn_e1deg * ( - 0.5 + REAL( mig0_oldcmp(ji)-1 , wp ) ) … … 91 91 ! 92 92 ! !== Horizontal scale factors ==! (in meters) 93 DO_2D _11_1193 DO_2D( 1, 1, 1, 1 ) 94 94 ! ! e1 (zonal) 95 95 pe1t(ji,jj) = ra * rad * COS( rad * pphit(ji,jj) ) * rn_e1deg -
NEMO/trunk/tests/ISOMIP/MY_SRC/usrdef_zgr.F90
r13286 r13295 126 126 END DO 127 127 ! top scale factors and depth at T- and W-points 128 DO_2D _11_11128 DO_2D( 1, 1, 1, 1 ) 129 129 ik = k_top(ji,jj) 130 130 IF ( ik > 2 ) THEN … … 145 145 END_2D 146 146 ! bottom scale factors and depth at T- and W-points 147 DO_2D _11_11147 DO_2D( 1, 1, 1, 1 ) 148 148 ik = k_bot(ji,jj) 149 149 pdepw(ji,jj,ik+1) = MIN( zht(ji,jj) , pdepw_1d(ik+1) ) … … 158 158 pe3u (:,:,:) = pe3t(:,:,:) 159 159 pe3uw(:,:,:) = pe3w(:,:,:) 160 DO_3D _00_00(1, jpk )160 DO_3D( 0, 0, 0, 0, 1, jpk ) 161 161 ! ! Computed as the minimum of neighbooring scale factors 162 162 pe3v (ji,jj,jk) = MIN( pe3t(ji,jj,jk), pe3t(ji,jj+1,jk) )
Note: See TracChangeset
for help on using the changeset viewer.