- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r3294 r4147 30 30 PUBLIC dta_tsd ! called by istate.F90 and tradmp.90 31 31 32 LOGICAL , PUBLIC :: ln_tsd_init = .FALSE.!: T & S data flag33 LOGICAL , PUBLIC :: ln_tsd_tradmp = .FALSE.!: internal damping toward input data flag32 LOGICAL , PUBLIC :: ln_tsd_init !: T & S data flag 33 LOGICAL , PUBLIC :: ln_tsd_tradmp !: internal damping toward input data flag 34 34 35 35 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_tsd ! structure of input SST (file informations, fields read) … … 62 62 !! 63 63 NAMELIST/namtsd/ ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 64 INTEGER :: ios 64 65 !!---------------------------------------------------------------------- 65 66 ! … … 76 77 sn_tem = FLD_N( 'temperature', -1. , 'votemper', .false. , .true. , 'monthly' , '' , '' ) 77 78 sn_sal = FLD_N( 'salinity' , -1. , 'vosaline', .false. , .true. , 'monthly' , '' , '' ) 78 79 REWIND( numnam ) ! read in namlist namdta_tsd 80 READ ( numnam, namtsd ) 79 80 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist : 81 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwp ) 83 84 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run 85 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 86 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 87 WRITE ( numond, namtsd ) 81 88 82 89 IF( PRESENT( ld_tradmp ) ) ln_tsd_tradmp = .TRUE. ! forces the initialization when tradmp is used
Note: See TracChangeset
for help on using the changeset viewer.