Changeset 13295 for NEMO/trunk/src/OCE/ZDF/zdfevd.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfevd.F90
r12377 r13295 87 87 ! END WHERE 88 88 ! 89 DO_3D _00_00(1, jpkm1 )89 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 90 90 IF( MIN( rn2(ji,jj,jk), rn2b(ji,jj,jk) ) <= -1.e-12 ) THEN 91 91 p_avt(ji,jj,jk) = rn_evd * wmask(ji,jj,jk) … … 103 103 ! END WHERE 104 104 105 DO_3D _00_00(1, jpkm1 )105 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 106 106 IF( MIN( rn2(ji,jj,jk), rn2b(ji,jj,jk) ) <= -1.e-12 ) & 107 107 p_avt(ji,jj,jk) = rn_evd * wmask(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.