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 10251 for branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/NST_SRC/agrif_lim2_update.F90 – NEMO

Ignore:
Timestamp:
2018-10-29T15:20:26+01:00 (5 years ago)
Author:
kingr
Message:

Rolled back to r10247 - i.e., undid merge of pkg br and 3.6_stable br

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/NST_SRC/agrif_lim2_update.F90

    r10248 r10251  
    5252      INTEGER, INTENT(in) :: kt 
    5353      !! 
     54      REAL(wp), DIMENSION(jpi,jpj)  :: zvel 
     55      REAL(wp), DIMENSION(jpi,jpj,7):: zadv 
    5456      !!---------------------------------------------------------------------- 
    5557      ! 
    … …  
    5860      Agrif_UseSpecialValueInUpdate = .TRUE. 
    5961      Agrif_SpecialValueFineGrid = 0. 
     62 
    6063# if defined TWO_WAY 
    6164      IF( MOD(nbcline,nbclineupdate) == 0) THEN 
    62          CALL Agrif_Update_Variable( adv_ice_id , procname = update_adv_ice  ) 
    63          CALL Agrif_Update_Variable( u_ice_id   , procname = update_u_ice    ) 
    64          CALL Agrif_Update_Variable( v_ice_id   , procname = update_v_ice    ) 
    65       ELSE 
    66          CALL Agrif_Update_Variable( adv_ice_id , locupdate=(/0,2/), procname = update_adv_ice  ) 
    67          CALL Agrif_Update_Variable( u_ice_id   , locupdate=(/0,1/), procname = update_u_ice    ) 
    68          CALL Agrif_Update_Variable( v_ice_id   , locupdate=(/0,1/), procname = update_v_ice    ) 
     65         CALL Agrif_Update_Variable( zadv , adv_ice_id , procname = update_adv_ice  ) 
     66         CALL Agrif_Update_Variable( zvel , u_ice_id   , procname = update_u_ice    ) 
     67         CALL Agrif_Update_Variable( zvel , v_ice_id   , procname = update_v_ice    ) 
     68      ELSE 
     69         CALL Agrif_Update_Variable( zadv , adv_ice_id , locupdate=(/0,2/), procname = update_adv_ice  ) 
     70         CALL Agrif_Update_Variable( zvel , u_ice_id   , locupdate=(/0,1/), procname = update_u_ice    ) 
     71         CALL Agrif_Update_Variable( zvel , v_ice_id   , locupdate=(/0,1/), procname = update_v_ice    ) 
    6972      ENDIF 
    7073# endif 
Note: See TracChangeset for help on using the changeset viewer.