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

Ignore:
Timestamp:
2019-09-12T18:41:17+02:00 (5 years ago)
Author:
mathiot
Message:

ENHANCE-02_ISF: simplify use of ln_isf, add extra comments + minor changes (ticket #2142)

File:
1 edited

Legend:

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

    r11529 r11541  
    114114      IF( ln_apr_dyn )   CALL sbc_apr ( kstp )                   ! atmospheric pressure (NB: call before bdy_dta which needs ssh_ib)  
    115115      IF( ln_bdy     )   CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries 
    116       IF( ln_isf     .OR. ln_isfcpl )   CALL isf_stp ( kstp ) 
     116      IF( ln_isf     )   CALL isf_stp ( kstp ) 
    117117                         CALL sbc     ( kstp )                   ! Sea Boundary Condition (including sea-ice) 
    118118 
     
    242242                         CALL tra_sbc       ( kstp )  ! surface boundary condition 
    243243      IF( ln_traqsr  )   CALL tra_qsr       ( kstp )  ! penetrative solar radiation qsr 
    244       IF( ln_isf .OR. ln_isfcpl ) CALL tra_isf ( kstp )  ! ice shelf heat flux 
     244      IF( ln_isf     ) CALL tra_isf ( kstp )  ! ice shelf heat flux 
    245245      IF( ln_trabbc  )   CALL tra_bbc       ( kstp )  ! bottom heat flux 
    246246      IF( ln_trabbl  )   CALL tra_bbl       ( kstp )  ! advective (and/or diffusive) bottom boundary layer scheme 
Note: See TracChangeset for help on using the changeset viewer.