Changeset 7097 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

Timestamp:

2016-10-25T17:32:50+02:00 (8 years ago)

Author:

lovato

Message:

New top interface : update my_trc and revise structure of TOP component initialisation, see ticket #1782

File:

• branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90 (modified) (2 diffs)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

@@ -12 +12 @@
    USE par_trc         ! TOP parameters
    USE trc             ! TOP variables
+   USE trcnam_cfc      ! CFC SMS namelist
    USE trcsms_cfc      ! CFC sms trends
 
@@ -49 +50 @@
       IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model'
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~'
-
+      !
+      CALL trc_nam_cfc
+      !
       IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm'