- Timestamp:
- 2010-09-10T12:32:58+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traldf_lap.F90
r2034 r2082 23 23 USE in_out_manager ! I/O manager 24 24 USE diaptr ! poleward transport diagnostics 25 USE trc_oce ! share passive tracers/Ocean variables 25 26 26 27 … … 84 85 !!---------------------------------------------------------------------- 85 86 86 IF( kt == nit000 )THEN87 IF( ( cdtype == 'TRA' .AND. kt == nit000 ) .OR. ( cdtype == 'TRC' .AND. kt == nittrc000 ) ) THEN 87 88 IF(lwp) WRITE(numout,*) 88 IF(lwp) WRITE(numout,*) 'tra_ldf_lap : iso-level laplacian diffusion '89 IF(lwp) WRITE(numout,*) 'tra_ldf_lap : iso-level laplacian diffusion on ', cdtype 89 90 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ ' 90 91 e1ur(:,:) = e2u(:,:) / e1u(:,:)
Note: See TracChangeset
for help on using the changeset viewer.