- 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/TOP/TRP/trdmxl_trc.F90
r12511 r13540 51 51 !! * Substitutions 52 52 # include "do_loop_substitute.h90" 53 # include "domzgr_substitute.h90" 53 54 !!---------------------------------------------------------------------- 54 55 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 124 125 125 126 IF( jpktrd_trc < jpk ) THEN ! description ??? 126 DO_2D _11_11127 DO_2D( 1, 1, 1, 1 ) 127 128 IF( nmld_trc(ji,jj) <= jpktrd_trc ) THEN 128 129 zvlmsk(ji,jj) = tmask(ji,jj,1) … … 147 148 ! ... Weights for vertical averaging 148 149 wkx_trc(:,:,:) = 0.e0 149 DO_3D _11_11( 1, jpktrd_trc )150 DO_3D( 1, 1, 1, 1, 1, jpktrd_trc ) ! initialize wkx_trc with vertical scale factor in mixed-layer 150 151 IF( jk - nmld_trc(ji,jj) < 0 ) wkx_trc(ji,jj,jk) = e3t(ji,jj,jk,Kmm) * tmask(ji,jj,jk) 151 152 END_3D … … 258 259 ! 259 260 DO jn = 1, jptra 260 DO_2D _11_11261 DO_2D( 1, 1, 1, 1 ) 261 262 ik = nmld_trc(ji,jj) 262 263 IF( ln_trdtrc(jn) ) &
Note: See TracChangeset
for help on using the changeset viewer.