- Timestamp:
- 2020-09-29T12:41:06+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/r12377_ticket2386
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12377_ticket2386
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13507 sette
-
- Property svn:externals
-
NEMO/branches/2020/r12377_ticket2386/src/OCE/ZDF/zdfddm.F90
r12377 r13540 77 77 REAL(wp) :: zaw, zbw, zrw ! local scalars 78 78 REAL(wp) :: zdt, zds 79 REAL(wp) :: zinr, zrr ! - - 80 REAL(wp) :: zavft, zavfs ! - - 79 REAL(wp) :: zinr ! - - 80 REAL(dp) :: zrr ! - - 81 REAL(wp) :: zavft ! - - 82 REAL(dp) :: zavfs ! - - 81 83 REAL(wp) :: zavdt, zavds ! - - 82 84 REAL(wp), DIMENSION(jpi,jpj) :: zrau, zmsks, zmskf, zmskd1, zmskd2, zmskd3 … … 92 94 !!gm and many acces in memory 93 95 94 DO_2D _11_1196 DO_2D( 1, 1, 1, 1 ) !== R=zrau = (alpha / beta) (dk[t] / dk[s]) ==! 95 97 zrw = ( gdepw(ji,jj,jk ,Kmm) - gdept(ji,jj,jk,Kmm) ) & 96 !!gm please, use e3w (:,:,:,Kmm)below98 !!gm please, use e3w at Kmm below 97 99 & / ( gdept(ji,jj,jk-1,Kmm) - gdept(ji,jj,jk,Kmm) ) 98 100 ! … … 108 110 END_2D 109 111 110 DO_2D _11_11112 DO_2D( 1, 1, 1, 1 ) !== indicators ==! 111 113 ! stability indicator: msks=1 if rn2>0; 0 elsewhere 112 114 IF( rn2(ji,jj,jk) + 1.e-12 <= 0. ) THEN ; zmsks(ji,jj) = 0._wp … … 138 140 ! ------------------ 139 141 ! Constant eddy coefficient: reset to the background value 140 DO_2D _11_11142 DO_2D( 1, 1, 1, 1 ) 141 143 zinr = 1._wp / zrau(ji,jj) 142 144 ! salt fingering
Note: See TracChangeset
for help on using the changeset viewer.