Changeset 13295 for NEMO/trunk/src/TOP/TRP/trdmxl_trc.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/TRP/trdmxl_trc.F90
r13237 r13295 125 125 126 126 IF( jpktrd_trc < jpk ) THEN ! description ??? 127 DO_2D _11_11127 DO_2D( 1, 1, 1, 1 ) 128 128 IF( nmld_trc(ji,jj) <= jpktrd_trc ) THEN 129 129 zvlmsk(ji,jj) = tmask(ji,jj,1) … … 148 148 ! ... Weights for vertical averaging 149 149 wkx_trc(:,:,:) = 0.e0 150 DO_3D _11_11(1, jpktrd_trc )150 DO_3D( 1, 1, 1, 1, 1, jpktrd_trc ) 151 151 IF( jk - nmld_trc(ji,jj) < 0 ) wkx_trc(ji,jj,jk) = e3t(ji,jj,jk,Kmm) * tmask(ji,jj,jk) 152 152 END_3D … … 259 259 ! 260 260 DO jn = 1, jptra 261 DO_2D _11_11261 DO_2D( 1, 1, 1, 1 ) 262 262 ik = nmld_trc(ji,jj) 263 263 IF( ln_trdtrc(jn) ) &
Note: See TracChangeset
for help on using the changeset viewer.