- Timestamp:
- 2017-09-15T20:07:33+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90
r8518 r8531 101 101 !! dynamics 102 102 !! 103 !! ** Method : Read the nam ice_rhg namelist and check the ice-dynamic103 !! ** Method : Read the namdyn_rhg namelist and check the ice-dynamic 104 104 !! parameter values called at the first timestep (nit000) 105 105 !! 106 !! ** input : Namelist nam ice_rhg106 !! ** input : Namelist namdyn_rhg 107 107 !!------------------------------------------------------------------- 108 108 INTEGER :: ios, ioptio ! Local integer output status for namelist read 109 109 !! 110 NAMELIST/nam ice_rhg/ ln_rhg_EVP, rn_creepl, rn_ecc , nn_nevp, rn_relast110 NAMELIST/namdyn_rhg/ ln_rhg_EVP, rn_creepl, rn_ecc , nn_nevp, rn_relast 111 111 !!------------------------------------------------------------------- 112 112 ! 113 REWIND( numnam_ice_ref ) ! Namelist nam ice_rhg in reference namelist : Ice dynamics114 READ ( numnam_ice_ref, nam ice_rhg, IOSTAT = ios, ERR = 901)115 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam ice_rhg in reference namelist', lwp )113 REWIND( numnam_ice_ref ) ! Namelist namdyn_rhg in reference namelist : Ice dynamics 114 READ ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901) 115 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist', lwp ) 116 116 ! 117 REWIND( numnam_ice_cfg ) ! Namelist nam ice_rhg in configuration namelist : Ice dynamics118 READ ( numnam_ice_cfg, nam ice_rhg, IOSTAT = ios, ERR = 902 )119 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam ice_rhg in configuration namelist', lwp )120 IF(lwm) WRITE ( numoni, nam ice_rhg )117 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rhg in configuration namelist : Ice dynamics 118 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 119 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist', lwp ) 120 IF(lwm) WRITE ( numoni, namdyn_rhg ) 121 121 ! 122 122 IF(lwp) THEN ! control print … … 124 124 WRITE(numout,*) 'ice_rhg_init: ice parameters for ice dynamics ' 125 125 WRITE(numout,*) '~~~~~~~~~~~~' 126 WRITE(numout,*) ' Namelist nam ice_rhg'127 WRITE(numout,*) ' rheology EVP (icerhg_evp) ln_rhg_EVP= ', ln_rhg_EVP128 WRITE(numout,*) ' creep limit rn_creepl= ', rn_creepl129 WRITE(numout,*) ' eccentricity of the elliptical yield curve rn_ecc= ', rn_ecc130 WRITE(numout,*) ' number of iterations for subcycling nn_nevp= ', nn_nevp131 WRITE(numout,*) ' ratio of elastic timescale over ice time step rn_relast= ', rn_relast126 WRITE(numout,*) ' Namelist namdyn_rhg:' 127 WRITE(numout,*) ' rheology EVP (icerhg_evp) ln_rhg_EVP = ', ln_rhg_EVP 128 WRITE(numout,*) ' creep limit rn_creepl = ', rn_creepl 129 WRITE(numout,*) ' eccentricity of the elliptical yield curve rn_ecc = ', rn_ecc 130 WRITE(numout,*) ' number of iterations for subcycling nn_nevp = ', nn_nevp 131 WRITE(numout,*) ' ratio of elastic timescale over ice time step rn_relast = ', rn_relast 132 132 ENDIF 133 133 !
Note: See TracChangeset
for help on using the changeset viewer.