Changeset 11918
- Timestamp:
- 2019-11-15T17:01:18+01:00 (5 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/cfgs/SHARED/namelist_ice_ref
r11649 r11918 186 186 !------------------------------------------------------------------------------ 187 187 ln_iceini = .true. ! activate ice initialization (T) or not (F) 188 ln_iceini_file = .false. ! netcdf file provided for initialization (T) or not (F) 188 nn_iceini_file = 0 ! 0 = Initialise sea ice based on SSTs 189 ! 1 = Initialise sea ice from single category netcdf file 190 ! 2 = Initialise sea ice from multi category restart file 189 191 rn_thres_sst = 2.0 ! max temp. above Tfreeze with initial ice = (sst - tfreeze) 190 192 rn_hti_ini_n = 3.0 ! initial ice thickness (m), North -
NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/iceistate.F90
r11715 r11918 41 41 ! !! ** namelist (namini) ** 42 42 LOGICAL, PUBLIC :: ln_iceini !: Ice initialization or not 43 LOGICAL, PUBLIC :: ln_iceini_file !: Ice initialization from 2D netcdf file 43 INTEGER, PUBLIC :: nn_iceini_file ! Ice initialization: 44 ! 0 = Initialise sea ice based on SSTs 45 ! 1 = Initialise sea ice from single category netcdf file 46 ! 2 = Initialise sea ice from multi category restart file 44 47 REAL(wp) :: rn_thres_sst 45 48 REAL(wp) :: rn_hti_ini_n, rn_hts_ini_n, rn_ati_ini_n, rn_smi_ini_n, rn_tmi_ini_n, rn_tsu_ini_n, rn_tms_ini_n … … 167 170 IF( ln_iceini ) THEN 168 171 ! !---------------! 169 IF( ln_iceini_file)THEN ! Read a file !172 IF( nn_iceini_file == 1 )THEN ! Read a file ! 170 173 ! !---------------! 171 174 WHERE( ff_t(:,:) >= 0._wp ) ; zswitch(:,:) = 1._wp … … 466 469 TYPE(FLD_N), DIMENSION(jpfldi) :: slf_i ! array of namelist informations on the fields to read 467 470 ! 468 NAMELIST/namini/ ln_iceini, ln_iceini_file, rn_thres_sst, &471 NAMELIST/namini/ ln_iceini, nn_iceini_file, rn_thres_sst, & 469 472 & rn_hti_ini_n, rn_hti_ini_s, rn_hts_ini_n, rn_hts_ini_s, & 470 473 & rn_ati_ini_n, rn_ati_ini_s, rn_smi_ini_n, rn_smi_ini_s, & … … 493 496 WRITE(numout,*) ' Namelist namini:' 494 497 WRITE(numout,*) ' ice initialization (T) or not (F) ln_iceini = ', ln_iceini 495 WRITE(numout,*) ' ice initialization from a netcdf file ln_iceini_file = ', ln_iceini_file498 WRITE(numout,*) ' ice initialization from a netcdf file nn_iceini_file = ', nn_iceini_file 496 499 WRITE(numout,*) ' max ocean temp. above Tfreeze with initial ice rn_thres_sst = ', rn_thres_sst 497 500 IF( ln_iceini .AND. .NOT.ln_iceini_file ) THEN … … 508 511 ENDIF 509 512 ! 510 IF( ln_iceini_file) THEN ! Ice initialization using input file513 IF( nn_iceini_file == 1 ) THEN ! Ice initialization using input file 511 514 ! 512 515 ! set si structure -
NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icestp.F90
r11715 r11918 252 252 ! 253 253 ! ! Initial sea-ice state 254 IF( .NOT. ln_rstart ) THEN ! start from rest: sea-ice deduced from sst 255 CALL ice_istate_init 256 CALL ice_istate( nit000 ) 257 ELSE ! start from a restart file 258 CALL ice_rst_read 254 255 CALL ice_istate_init 256 IF ( ln_rstart .OR. nn_iceini_file == 2 ) THEN 257 CALL ice_rst_read ! start from a restart file 258 ELSE 259 CALL ice_istate( nit000 ) ! start from rest: sea-ice deduced from sst 259 260 ENDIF 260 261 CALL ice_var_glo2eqv
Note: See TracChangeset
for help on using the changeset viewer.