Changeset 13295 for NEMO/trunk/src/OCE/CRS/crsfld.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/CRS/crsfld.F90
r13237 r13295 120 120 ! 121 121 zt(:,:,:) = 0._wp ; zs(:,:,:) = 0._wp ; zt_crs(:,:,:) = 0._wp ; zs_crs(:,:,:) = 0._wp 122 DO_3D _00_00(1, jpkm1 )122 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 123 123 zt(ji,jj,jk) = uu(ji,jj,jk,Kmm) * 0.5 * ( ts(ji,jj,jk,jp_tem,Kmm) + ts(ji+1,jj,jk,jp_tem,Kmm) ) 124 124 zs(ji,jj,jk) = uu(ji,jj,jk,Kmm) * 0.5 * ( ts(ji,jj,jk,jp_sal,Kmm) + ts(ji+1,jj,jk,jp_sal,Kmm) ) … … 135 135 ! 136 136 zt(:,:,:) = 0._wp ; zs(:,:,:) = 0._wp ; zt_crs(:,:,:) = 0._wp ; zs_crs(:,:,:) = 0._wp 137 DO_3D _00_00(1, jpkm1 )137 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 138 138 zt(ji,jj,jk) = vv(ji,jj,jk,Kmm) * 0.5 * ( ts(ji,jj,jk,jp_tem,Kmm) + ts(ji,jj+1,jk,jp_tem,Kmm) ) 139 139 zs(ji,jj,jk) = vv(ji,jj,jk,Kmm) * 0.5 * ( ts(ji,jj,jk,jp_sal,Kmm) + ts(ji,jj+1,jk,jp_sal,Kmm) ) … … 148 148 IF( iom_use( "eken") ) THEN ! kinetic energy 149 149 z3d(:,:,jk) = 0._wp 150 DO_3D _00_00(1, jpkm1 )150 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 151 151 zztmp = r1_e1e2t(ji,jj) / e3t(ji,jj,jk,Kmm) 152 152 z3d(ji,jj,jk) = 0.25_wp * zztmp * ( &
Note: See TracChangeset
for help on using the changeset viewer.