Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90
- Timestamp:
- 2007-12-17T12:59:33+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90
r768 r772 45 45 IF(lwp) WRITE(numout,*) '~~~~~~~' 46 46 ! 47 IF( lk_ trc_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model48 ELSE 47 IF( lk_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model 48 ELSE ; IF(lwp) WRITE(numout,*) ' LOBSTER not used' 49 49 ENDIF 50 50 51 IF( lk_ trc_pisces ) THEN ; CALL trc_ini_pisces ! PISCES bio-model52 ELSE 51 IF( lk_pisces ) THEN ; CALL trc_ini_pisces ! PISCES bio-model 52 ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' 53 53 ENDIF 54 54 55 IF( lk_ trc_cfc ) THEN ; CALL trc_ini_cfc ! CFC tracers56 ELSE 55 IF( lk_cfc ) THEN ; CALL trc_ini_cfc ! CFC tracers 56 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' 57 57 ENDIF 58 58 59 IF( lk_my_trc 60 ELSE 59 IF( lk_my_trc ) THEN ; CALL trc_ini_my_trc ! MY_TRC tracers 60 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 61 61 ENDIF 62 62 !
Note: See TracChangeset
for help on using the changeset viewer.