- Timestamp:
- 2018-11-16T16:06:47+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_GO8_package/src/TOP/trcini.F90
r9950 r10322 35 35 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 36 36 !! $Id$ 37 !! Software governed by the CeCILL licen ce (./LICENSE)37 !! Software governed by the CeCILL license (see ./LICENSE) 38 38 !!---------------------------------------------------------------------- 39 39 CONTAINS … … 174 174 END DO 175 175 ! 176 IF( ln_pisces ) CALL trc_ini_pisces ! PISCES model 177 IF( ln_my_trc ) CALL trc_ini_my_trc ! MY_TRC model 178 IF( ll_cfc ) CALL trc_ini_cfc ! CFC's 179 IF( ln_c14 ) CALL trc_ini_c14 ! C14 model 180 IF( ln_age ) CALL trc_ini_age ! AGE 176 IF( ln_pisces ) CALL trc_ini_pisces ! PISCES model 177 IF( ln_my_trc ) CALL trc_ini_my_trc ! MY_TRC model 178 IF( ll_cfc ) CALL trc_ini_cfc ! CFC's 179 IF( ln_c14 ) CALL trc_ini_c14 ! C14 model 180 IF( ln_age ) CALL trc_ini_age ! AGE 181 IF( .NOT.ln_pisces ) ALLOCATE( profsed(2) ) 181 182 ! 182 183 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.