Changeset 2830 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
- 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_bilapg.F90
r2715 r2830 25 25 USE trc_oce ! share passive tracers/Ocean variables 26 26 USE lib_mpp ! MPP library 27 #if defined key_top 28 USE trc, ONLY: nittrc000 !get first time step for passive tracers 29 #endif 27 30 28 31 IMPLICIT NONE … … 82 85 ENDIF 83 86 87 #if defined key_top 88 IF( kt == nit000 .OR. (kt == nittrc000 .AND. cdtype == 'TRC')) THEN 89 #else 84 90 IF( kt == nit000 ) THEN 91 #endif 85 92 IF(lwp) WRITE(numout,*) 86 93 IF(lwp) WRITE(numout,*) 'tra_ldf_bilapg : horizontal biharmonic operator in s-coordinate on ', cdtype
Note: See TracChangeset
for help on using the changeset viewer.