!!! !!! trclsm.cfc.h !!! **************** !!! !!! PURPOSE : !!! --------- !!! READs and PRINT options for cfc namelist #if defined key_passivetrc && defined key_gosac CHARACTER (len=32) :: clname !!--------------------------------------------------------------------- !! TOP 1.0, LOCEAN-IPSL (2005) !! $Header$ !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt !!--------------------------------------------------------------------- ! 0. initializations ! ------------------ NAMELIST/coffset/xinitri numnat=80 clname ='namelist.sms.gosac' OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') ! Namelist traback : ! ------------------ READ(numnat,coffset) IF(lwp) THEN WRITE(numout,*) ' ' WRITE(numout,*) 'coffset' write(numout,coffset) WRITE(numout,*) ' ' ENDIF #endif