- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/ZDF/zdfevd.F90
r12377 r13899 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.