- 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_iso.F90
r2034 r2082 28 28 USE ldfslp ! iso-neutral slopes 29 29 USE diaptr ! poleward transport diagnostics 30 USE trc_oce ! share passive tracers/Ocean variables 30 31 #if defined key_diaar5 31 32 USE phycst ! physical constants … … 116 117 !!---------------------------------------------------------------------- 117 118 118 IF( kt == nit000 )THEN119 IF( ( cdtype == 'TRA' .AND. kt == nit000 ) .OR. ( cdtype == 'TRC' .AND. kt == nittrc000 ) ) THEN 119 120 IF(lwp) WRITE(numout,*) 120 IF(lwp) WRITE(numout,*) 'tra_ldf_iso : rotated laplacian diffusion operator '121 IF(lwp) WRITE(numout,*) 'tra_ldf_iso : rotated laplacian diffusion operator on ', cdtype 121 122 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 122 123 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.