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 11553 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2019-09-16T18:54:28+02:00 (5 years ago)
Author:
mathiot
Message:

ENHANCE-02_ISF: fix coupling issue (ticket #2142)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/nemogcm.F90

    r11403 r11553  
    435435         RETURN                                       ! end of initialization 
    436436      ENDIF 
     437      ! 
    437438       
    438439                           CALL  istate_init    ! ocean initial state (Dynamics and tracers) 
     
    453454      !                                      ! Active tracers 
    454455      IF( ln_traqsr    )   CALL tra_qsr_init      ! penetrative solar radiation qsr 
    455                            CALL isf_stp_init      ! ice shelf 
    456456                           CALL tra_bbc_init      ! bottom heat flux 
    457457                           CALL tra_bbl_init      ! advective (and/or diffusive) bottom boundary layer scheme 
     
    476476      !                                      ! Icebergs 
    477477                           CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
     478 
     479                                                ! ice shelf 
     480                           CALL isf_init 
    478481 
    479482      !                                      ! Misc. options 
Note: See TracChangeset for help on using the changeset viewer.