- Timestamp:
- 2019-11-15T17:01:18+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.