New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11918 for NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icestp.F90 – NEMO

Ignore:
Timestamp:
2019-11-15T17:01:18+01:00 (4 years ago)
Author:
dancopsey
Message:

Merged in ability to start from a sea ice restart file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/icestp.F90

    r11715 r11918  
    252252      ! 
    253253      !                                ! 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 
    259260      ENDIF 
    260261      CALL ice_var_glo2eqv 
Note: See TracChangeset for help on using the changeset viewer.