MODULE trcnam_cfc !!====================================================================== !! *** MODULE trcnam_cfc *** !! TOP : initialisation of some run parameters for CFC chemical model !!====================================================================== !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcnam.cfc.h90 !!---------------------------------------------------------------------- !! trc_nam_cfc : CFC model initialisation !!---------------------------------------------------------------------- USE oce_trc ! Ocean variables USE trc ! TOP variables USE trcsms_cfc ! CFC specific variable IMPLICIT NONE PRIVATE PUBLIC trc_nam_cfc ! called by trcnam.F90 module !!---------------------------------------------------------------------- !! NEMO/TOP 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_nam_cfc !!------------------------------------------------------------------- !! *** ROUTINE trc_nam_cfc *** !! !! ** Purpose : Definition some run parameter for CFC model !! !! ** Method : Read the namcfc namelist and check the parameter !! values called at the first timestep (nittrc000) !! !! ** input : Namelist namcfc !!---------------------------------------------------------------------- INTEGER :: ios ! Local integer output status for namelist read INTEGER :: jl, jn !! NAMELIST/namcfc/ ndate_beg, nyear_res !!---------------------------------------------------------------------- REWIND( numtrc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters READ ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist', lwp ) REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist : CFC parameters READ ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist', lwp ) IF(lwm) WRITE ( numonr, namcfc ) IF(lwp) THEN ! control print WRITE(numout,*) WRITE(numout,*) ' trc_nam: Read namdates, namelist for CFC chemical model' WRITE(numout,*) ' ~~~~~~~' WRITE(numout,*) ' initial calendar date (aammjj) for CFC ndate_beg = ', ndate_beg WRITE(numout,*) ' restoring time constant (year) nyear_res = ', nyear_res ENDIF nyear_beg = ndate_beg / 10000 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg = ', nyear_beg ! IF(lwm) CALL FLUSH ( numonr ) ! flush output namelist CFC END SUBROUTINE trc_nam_cfc !!====================================================================== END MODULE trcnam_cfc