- Timestamp:
- 2016-10-26T20:08:30+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90
r7097 r7124 46 46 CHARACTER(len = 20) :: cltra 47 47 !!---------------------------------------------------------------------- 48 48 ! 49 CALL trc_nam_cfc 50 ! 49 51 IF(lwp) WRITE(numout,*) 50 52 IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model' 51 53 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 52 !53 CALL trc_nam_cfc54 54 ! 55 55 IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm'
Note: See TracChangeset
for help on using the changeset viewer.