!!! $Header$ !!! !!! trclsm.cfc.h !!! **************** !!! !!! PURPOSE : !!! --------- !!! READs and PRINT options for cfc namelist #if defined key_passivetrc && defined key_cfc CHARACTER (len=32) :: clname !!!--------------------------------------------------------------------- !!! OPA8, LODYC (15/11/96) !!!--------------------------------------------------------------------- ! 0. initializations ! ------------------ NAMELIST/coffset/xinitri numnat=80 clname ='namelist.sms.cfc' 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