Ignore:
Timestamp:
2018-06-12T14:12:51+02:00 (3 years ago)
Author:
jchanut
Message:

Reorganize Agrif update in a single subroutine ; use adjoint stepping for initial state update

File:
1 edited

Legend:

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

    r9761 r9780  
    4242CONTAINS 
    4343 
    44    SUBROUTINE agrif_update_ice( kt ) 
     44   SUBROUTINE agrif_update_ice( ) 
    4545      !!---------------------------------------------------------------------- 
    4646      !!                     *** ROUTINE agrif_update_ice *** 
     
    4949      !! ** Action : - Update (u_ice,v_ice) and ice tracers 
    5050      !!---------------------------------------------------------------------- 
    51       INTEGER, INTENT(in) :: kt 
    52       !!---------------------------------------------------------------------- 
    5351      ! 
    5452      IF( Agrif_Root() .OR. nn_ice == 0 ) RETURN   ! do not update if inside Parent Grid or if child domain does not have ice 
    5553      ! 
    56       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 
     54      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update sea ice from grid Number',Agrif_Fixed() 
     55      ! 
     56!      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 
    5757      ! 
    5858      Agrif_SpecialValueFineGrid    = -9999. 
Note: See TracChangeset for help on using the changeset viewer.