Changeset 1193 for trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90
- Timestamp:
- 2008-09-18T14:45:43+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90
r1175 r1193 238 238 ! 3. Save the horizontal advective trends for diagnostics 239 239 ! ------------------------------------------------------- 240 !CDIR BEGIN COLLAPSE241 240 TRDTRC_XY : IF( l_trdtrc ) THEN 242 241 … … 282 281 283 282 ENDIF TRDTRC_XY 284 !CDIR END285 283 286 284 ENDDO … … 375 373 ! 3. Save the vertical advective trends for diagnostic 376 374 ! ---------------------------------------------------- 377 !CDIR BEGIN COLLAPSE378 375 TRDTRC_Z : IF( l_trdtrc )THEN 379 376 … … 394 391 395 392 END IF TRDTRC_Z 396 !CDIR END397 393 END DO 398 394
Note: See TracChangeset
for help on using the changeset viewer.