- Timestamp:
- 2013-11-04T12:51:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r3294 r4147 47 47 PUBLIC dtacof_zoom ! routine called by in both tradmp.F90 and trcdmp.F90 48 48 49 ! 50 LOGICAL, PUBLIC :: ln_tradmp = .TRUE.!: internal damping flag51 INTEGER :: nn_hdmp = -1! = 0/-1/'latitude' for damping over T and S52 INTEGER :: nn_zdmp = 0! = 0/1/2 flag for damping in the mixed layer53 REAL(wp) :: rn_surf = 50._wp! surface time scale for internal damping [days]54 REAL(wp) :: rn_bot = 360._wp! bottom time scale for internal damping [days]55 REAL(wp) :: rn_dep = 800._wp! depth of transition between rn_surf and rn_bot [meters]56 INTEGER :: nn_file = 2! = 1 create a damping.coeff NetCDF file49 ! !!* Namelist namtra_dmp : T & S newtonian damping * 50 LOGICAL, PUBLIC :: ln_tradmp = .TRUE. !: internal damping flag 51 INTEGER :: nn_hdmp ! = 0/-1/'latitude' for damping over T and S 52 INTEGER :: nn_zdmp ! = 0/1/2 flag for damping in the mixed layer 53 REAL(wp) :: rn_surf ! surface time scale for internal damping [days] 54 REAL(wp) :: rn_bot ! bottom time scale for internal damping [days] 55 REAL(wp) :: rn_dep ! depth of transition between rn_surf and rn_bot [meters] 56 INTEGER :: nn_file ! = 1 create a damping.coeff NetCDF file 57 57 58 58 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: strdmp !: damping salinity trend (psu/s) … … 194 194 !!---------------------------------------------------------------------- 195 195 NAMELIST/namtra_dmp/ ln_tradmp, nn_hdmp, nn_zdmp, rn_surf, rn_bot, rn_dep, nn_file 196 !!---------------------------------------------------------------------- 197 198 REWIND ( numnam ) ! Read Namelist namtra_dmp : temperature and salinity damping term 199 READ ( numnam, namtra_dmp ) 196 INTEGER :: ios ! Local integer output status for namelist read 197 !!---------------------------------------------------------------------- 198 199 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : Temperature and salinity damping term 200 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 201 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 202 203 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : Temperature and salinity damping term 204 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 205 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 206 WRITE ( numond, namtra_dmp ) 200 207 201 208 IF( lzoom ) nn_zdmp = 0 ! restoring to climatology at closed north or south boundaries … … 296 303 297 304 ! ! ==================================================== 298 IF( lzoom_arct .AND. lzoom_anta ) THEN ! ORCA configuration : arctic zoomor antarctic zoom305 IF( cp_cfz == "arctic" .OR. cp_cfz == "antarctic" ) THEN ! ORCA configuration : arctic or antarctic zoom 299 306 ! ! ==================================================== 300 307 IF(lwp) WRITE(numout,*) 301 IF(lwp .AND. lzoom_arct) WRITE(numout,*) ' dtacof_zoom : ORCA Arctic zoom'302 IF(lwp .AND. lzoom_arct ) WRITE(numout,*) 'dtacof_zoom : ORCA Antarctic zoom'308 IF(lwp .AND. cp_cfz == "arctic" ) WRITE(numout,*) ' dtacof_zoom : ORCA Arctic zoom' 309 IF(lwp .AND. cp_cfz == "antarctic" ) WRITE(numout,*) ' dtacof_zoom : ORCA Antarctic zoom' 303 310 IF(lwp) WRITE(numout,*) 304 311 !
Note: See TracChangeset
for help on using the changeset viewer.