- Timestamp:
- 2013-11-20T17:56:18+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90
r4205 r4293 71 71 & 'use more ocean levels or less ice/snow layers/categories.' ) 72 72 73 ! Open the reference and configuration namelist files and namelist output file 74 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 75 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 73 ! ! Open the namelist file 74 CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 77 75 ! 78 76 CALL ice_run ! set some ice run parameters … … 103 101 ENDIF 104 102 ! 103 hi_max(jpl) = 99._wp ! Set hi_max(jpl) to a big value to ensure that all ice is thinner than hi_max(jpl) 104 ! 105 105 CALL lim_sbc_init ! ice surface boundary condition 106 106 ! … … 129 129 !!------------------------------------------------------------------- 130 130 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, amax, cai, cao, ln_nicep, ln_limdiahsb, ln_limdiaout 131 INTEGER :: ios ! Local integer output status for namelist read132 131 !!------------------------------------------------------------------- 133 132 ! 134 REWIND( numnam_ice_ref ) ! Namelist namicerun in reference namelist : Parameters for ice 135 READ ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 137 138 REWIND( numnam_ice_cfg ) ! Namelist namicerun in configuration namelist : Parameters for ice 139 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 140 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 141 WRITE ( numoni, namicerun ) 142 ! 143 IF( lk_mpp .AND. ln_nicep ) THEN 144 ln_nicep = .FALSE. 145 CALL ctl_warn( 'ice_run : specific control print for LIM3 desactivated with MPI' ) 146 ENDIF 133 REWIND( numnam_ice ) ! Read Namelist namicerun 134 READ ( numnam_ice , namicerun ) 135 ! 136 !IF( lk_mpp .AND. ln_nicep ) THEN 137 ! ln_nicep = .FALSE. 138 ! CALL ctl_warn( 'ice_run : specific control print for LIM3 desactivated with MPI' ) 139 !ENDIF 147 140 ! 148 141 IF(lwp) THEN ! control print … … 168 161 !! ** Purpose : Initializes the ice thickness distribution 169 162 !! ** Method : ... 163 !! Note : hi_max(jpl) is here set up to a value close to 7 m for 164 !! limistate (only) and is changed to 99 m in ice_init 170 165 !!------------------------------------------------------------------ 171 166 INTEGER :: jl, jm ! dummy loop index
Note: See TracChangeset
for help on using the changeset viewer.