Changeset 11581


Ignore:
Timestamp:
2019-09-20T11:40:13+02:00 (12 months ago)
Author:
dancopsey
Message:

Create nn_iceini_file=2 option that loads sea ice restart file.

Location:
NEMO/branches/UKMO/NEMO_4.0_init_ice/src/ICE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_init_ice/src/ICE/iceistate.F90

    r10888 r11581  
    4848   !                             !! ** namelist (namini) ** 
    4949   LOGICAL  ::   ln_iceini        ! initialization or not 
    50    LOGICAL  ::   ln_iceini_file   ! Ice initialization state from 2D netcdf file 
     50   INTEGER  ::   nn_iceini_file   ! Ice initialization: 
     51                                  !        0 = Initialise sea ice based on SSTs 
     52                                  !        1 = Initialise sea ice from single category netcdf file 
     53                                  !        2 = Initialise sea ice from multi category restart file 
    5154   REAL(wp) ::   rn_thres_sst     ! threshold water temperature for initial sea ice 
    5255   REAL(wp) ::   rn_hts_ini_n     ! initial snow thickness in the north 
     
    125128         ! 
    126129         !                             !---------------! 
    127          IF( ln_iceini_file )THEN      ! Read a file   ! 
     130         IF( nn_iceini_file == 1 )THEN      ! Read a file   ! 
    128131            !                          !---------------! 
    129132            ! 
     
    512515      TYPE(FLD_N), DIMENSION(jpfldi) ::   slf_i                 ! array of namelist informations on the fields to read 
    513516      ! 
    514       NAMELIST/namini/ ln_iceini, ln_iceini_file, rn_thres_sst, rn_hts_ini_n, rn_hts_ini_s,  & 
     517      NAMELIST/namini/ ln_iceini, nn_iceini_file, rn_thres_sst, rn_hts_ini_n, rn_hts_ini_s,  & 
    515518         &             rn_hti_ini_n, rn_hti_ini_s, rn_ati_ini_n, rn_ati_ini_s, rn_smi_ini_n, & 
    516519         &             rn_smi_ini_s, rn_tmi_ini_n, rn_tmi_ini_s,                             & 
     
    536539         WRITE(numout,*) '   Namelist namini:' 
    537540         WRITE(numout,*) '      initialization with ice (T) or not (F)                 ln_iceini       = ', ln_iceini 
    538          WRITE(numout,*) '      ice initialization from a netcdf file                  ln_iceini_file  = ', ln_iceini_file 
     541         WRITE(numout,*) '      ice initialization from a netcdf file                  nn_iceini_file  = ', nn_iceini_file 
    539542         WRITE(numout,*) '      max delta ocean temp. above Tfreeze with initial ice   rn_thres_sst    = ', rn_thres_sst 
    540543         WRITE(numout,*) '      initial snow thickness in the north                    rn_hts_ini_n    = ', rn_hts_ini_n 
     
    550553      ENDIF 
    551554      ! 
    552       IF( ln_iceini_file ) THEN                      ! Ice initialization using input file 
     555      IF( nn_iceini_file == 1 ) THEN                      ! Ice initialization using input file 
    553556         ! 
    554557         ! set si structure 
  • NEMO/branches/UKMO/NEMO_4.0_init_ice/src/ICE/icestp.F90

    r11081 r11581  
    252252      ! 
    253253      !                                ! Initial sea-ice state 
    254       IF( .NOT. ln_rstart ) THEN              ! start from rest: sea-ice deduced from sst 
     254      IF( .NOT. ln_rstart .AND. nn_iceini_file /= 2 ) THEN              ! start from rest: sea-ice deduced from sst 
    255255         CALL ice_istate_init 
    256256         CALL ice_istate 
Note: See TracChangeset for help on using the changeset viewer.