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 9785 for NEMO – NEMO

Changeset 9785 for NEMO


Ignore:
Timestamp:
2018-06-13T10:08:52+02:00 (6 years ago)
Author:
jchanut
Message:

Restrict Agrif ice update according to nn_fsbc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_ice_update.F90

    r9780 r9785  
    5252      IF( Agrif_Root() .OR. nn_ice == 0 ) RETURN   ! do not update if inside Parent Grid or if child domain does not have ice 
    5353      ! 
    54       IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update sea ice from grid Number',Agrif_Fixed() 
    55       ! 
    5654!      IF( ( MOD( (kt-nit000)/nn_fsbc + 1, Agrif_irhot() * Agrif_Parent(nn_fsbc)/nn_fsbc ) /=0 ) .AND. (kt /= 0) ) RETURN   ! update only at the parent ice time step 
     55      IF ( MOD(Agrif_parent_nb_step(), Agrif_Parent(nn_fsbc)) /=0 ) RETURN   ! Update only at the parent ice time step 
     56                                                                             ! It is assumed that at such a time, there is a child ice step which is true 
     57                                                                             ! as long as MOD( Agrif_irhot() * Agrif_Parent(nn_fsbc), nn_fsbc )==0.  
     58                                                                             ! (This condition is checked in agrif_user, Agrif_InitValues_cont_ice subroutine) 
     59      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update sea ice from grid Number',Agrif_Fixed(), agrif_nb_step() 
     60      ! 
    5761      ! 
    5862      Agrif_SpecialValueFineGrid    = -9999. 
Note: See TracChangeset for help on using the changeset viewer.