- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r3625 r3875 72 72 & 'use more ocean levels or less ice layers/categories.' ) 73 73 74 ! ! Open the namelist file 75 CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 74 ! ! Open the reference and configuration namelist files and namelist output file 75 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 77 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 78 ! 77 79 CALL ice_run_2 ! read in namelist some run parameters … … 111 113 !!------------------------------------------------------------------- 112 114 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 115 INTEGER :: ios ! Local integer output status for namelist read 113 116 !!------------------------------------------------------------------- 114 117 ! 115 REWIND( numnam_ice ) ! Read Namelist namicerun 116 READ ( numnam_ice , namicerun ) 118 REWIND( numnam_ice_ref ) ! Namelist namicerun in reference namelist : Parameters for ice 119 READ ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 120 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 121 122 REWIND( numnam_ice_cfg ) ! Namelist namicerun in configuration namelist : Parameters for ice 123 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 124 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 125 WRITE ( numoni, namicerun ) 117 126 ! 118 127 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90
r3625 r3875 176 176 INTEGER :: jv ! dummy loop indice 177 177 INTEGER :: ntot , ndeb, nv, ierr ! local integer 178 INTEGER :: ios ! Local integer output status for namelist read 178 179 REAL(wp) :: zxx0, zxx1 ! local scalars 179 180 180 181 NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 181 182 !!------------------------------------------------------------------- 182 183 REWIND( numnam_ice ) ! Read Namelist namicedia 184 READ ( numnam_ice , namicedia ) 183 184 REWIND( numnam_ice_ref ) ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 185 READ ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 186 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 187 188 REWIND( numnam_ice_cfg ) ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu 189 READ ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 190 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 191 WRITE ( numoni, namicedia ) 185 192 186 193 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdmp_2.F90
r3635 r3875 97 97 INTEGER :: ji, jj, jk ! dummy loop indices 98 98 INTEGER :: irelax, ierror ! error flag for allocation 99 INTEGER :: ios ! Local integer output status for namelist read 99 100 ! 100 101 REAL(wp) :: zdmpmax, zdmpmin, zfactor, zreltim ! temporary scalar … … 116 117 sn_hicif = FLD_N( 'ice_damping ', -1 , 'hicif' , .true. , .true. , 'yearly' , '' , '' ) 117 118 sn_frld = FLD_N( 'ice_damping ', -1 , 'frld' , .true. , .true. , 'yearly' , '' , '' ) 119 120 REWIND( numnam_ice_ref ) ! Namelist namice_dmp in reference namelist : Ice restoring 121 READ ( numnam_ice_ref, namice_dmp, IOSTAT = ios, ERR = 901) 122 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in reference namelist', lwp ) 118 123 119 REWIND( numnam_ice ) !* read in namelist_ice namicedmp 120 READ ( numnam_ice, namice_dmp ) 124 REWIND( numnam_ice_cfg ) ! Namelist namice_dmp in configuration namelist : Ice restoring 125 READ ( numnam_ice_cfg, namice_dmp, IOSTAT = ios, ERR = 902 ) 126 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in configuration namelist', lwp ) 127 WRITE ( numoni, namice_dmp ) 121 128 ! 122 129 IF ( lwp ) THEN !* control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90
r3625 r3875 224 224 !! ** input : Namelist namicedyn 225 225 !!------------------------------------------------------------------- 226 INTEGER :: ios ! Local integer output status for namelist read 226 227 NAMELIST/namicedyn/ epsd, alpha, & 227 228 & dm, nbiter, nbitdr, om, resl, cw, angvg, pstar, & … … 229 230 & nevp, telast,alphaevp 230 231 !!------------------------------------------------------------------- 231 232 REWIND ( numnam_ice ) ! Read Namelist namicedyn 233 READ ( numnam_ice , namicedyn ) 232 233 REWIND( numnam_ice_ref ) ! Namelist namicedyn in reference namelist : Ice dynamics 234 READ ( numnam_ice_ref, namicedyn, IOSTAT = ios, ERR = 901) 235 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in reference namelist', lwp ) 236 237 REWIND( numnam_ice_cfg ) ! Namelist namicedyn in configuration namelist : Ice dynamics 238 READ ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 239 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 240 WRITE ( numoni, namicedyn ) 234 241 235 242 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90
r3625 r3875 163 163 INTEGER :: inum_ice 164 164 INTEGER :: ji,jj 165 INTEGER :: ios ! Local integer output status for namelist read 165 166 166 167 NAMELIST/namiceini/ ln_limini, ttest, hninn, hginn, alinn, & 167 168 & hnins, hgins, alins 168 169 !!------------------------------------------------------------------- 169 ! 170 REWIND ( numnam_ice ) ! Read Namelist namiceini 171 READ ( numnam_ice , namiceini ) 170 171 REWIND( numnam_ice_ref ) ! Namelist namiceini in reference namelist : Ice initial state 172 READ ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 173 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 174 175 REWIND( numnam_ice_cfg ) ! Namelist namiceini in configuration namelist : Ice initial state 176 READ ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 177 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 178 WRITE ( numoni, namiceini ) 172 179 ! 173 180 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r3625 r3875 530 530 !! ** input : Namelist namicether 531 531 !!------------------------------------------------------------------- 532 INTEGER :: ios ! Local integer output status for namelist read 532 533 NAMELIST/namicethd/ hmelt , hiccrit, hicmin, hiclim, amax , & 533 534 & swiqst, sbeta , parlat, hakspl, hibspl, exld, & 534 535 & hakdif, hnzst , thth , parsub, alphs 535 536 !!------------------------------------------------------------------- 536 ! 537 REWIND( numnam_ice ) ! read namelist 538 READ ( numnam_ice , namicethd ) 537 538 REWIND( numnam_ice_ref ) ! Namelist namicethd in reference namelist : Ice thermodynamics 539 READ ( numnam_ice_ref, namicethd, IOSTAT = ios, ERR = 901) 540 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in reference namelist', lwp ) 541 542 REWIND( numnam_ice_cfg ) ! Namelist namicethd in configuration namelist : Ice thermodynamics 543 READ ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 544 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 545 WRITE ( numoni, namicethd ) 546 539 547 IF( lk_cpl .AND. parsub /= 0.0 ) CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 540 548 ! -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90
r3764 r3875 297 297 !! ** input : Namelist namicetrp 298 298 !!------------------------------------------------------------------- 299 INTEGER :: ios ! Local integer output status for namelist read 299 300 NAMELIST/namicetrp/ bound 300 301 !!------------------------------------------------------------------- 301 ! 302 REWIND ( numnam_ice ) ! Read Namelist namicetrp 303 READ ( numnam_ice , namicetrp ) 302 303 REWIND( numnam_ice_ref ) ! Namelist namicetrp in reference namelist : Ice advection 304 READ ( numnam_ice_ref, namicetrp, IOSTAT = ios, ERR = 901) 305 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in reference namelist', lwp ) 306 307 REWIND( numnam_ice_cfg ) ! Namelist namicetrp in configuration namelist : Ice advection 308 READ ( numnam_ice_cfg, namicetrp, IOSTAT = ios, ERR = 902 ) 309 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 310 WRITE ( numoni, namicetrp ) 311 304 312 IF(lwp) THEN 305 313 WRITE(numout,*) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r3764 r3875 230 230 !!------------------------------------------------------------------- 231 231 INTEGER :: nf ! ??? 232 INTEGER :: ios ! Local integer output status for namelist read 232 233 TYPE FIELD 233 234 CHARACTER(len = 35) :: ztitle … … 255 256 CALL ctl_stop( 'STOP', 'lim_wri_init_2 : unable to allocate standard arrays' ) ; RETURN 256 257 ENDIF 257 258 REWIND ( numnam_ice ) ! Read Namelist namicewri 259 READ ( numnam_ice , namiceout ) 258 259 REWIND( numnam_ice_ref ) ! Namelist namiceout in reference namelist : Ice outputs 260 READ ( numnam_ice_ref, namiceout, IOSTAT = ios, ERR = 901) 261 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in reference namelist', lwp ) 262 263 REWIND( numnam_ice_cfg ) ! Namelist namiceout in configuration namelist : Ice outputs 264 READ ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 265 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 266 WRITE ( numoni, namiceout ) 260 267 261 268 zfield( 1) = field_1
Note: See TracChangeset
for help on using the changeset viewer.