- Timestamp:
- 2011-08-23T12:20:06+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r2715 r2830 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 #endif 34 #if defined key_top 35 USE trc, ONLY: nittrc000 !get first time step for passive tracers 36 #endif 34 37 35 38 IMPLICIT NONE … … 121 124 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 122 125 ENDIF 126 #if defined key_top 127 IF( kt == nittrc000 .AND. cdtype == 'TRC' ) THEN 128 IF(lwp) WRITE(numout,*) 129 IF(lwp) WRITE(numout,*) 'tra_ldf_iso : rotated laplacian diffusion operator on ', cdtype 130 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 131 ENDIF 132 #endif 123 133 ! 124 134 ! ! ===========
Note: See TracChangeset
for help on using the changeset viewer.