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 8901 for branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90 – NEMO

Ignore:
Timestamp:
2017-12-05T14:52:57+01:00 (6 years ago)
Author:
jchanut
Message:

AGRIF: Remove update frequency parameter from namelist - #1965

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

    r8898 r8901  
    3838      ! 
    3939#if defined TWO_WAY   
    40       IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update tracers  from grid Number',Agrif_Fixed(), 'nbcline', nbcline 
     40      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update tracers  from grid Number',Agrif_Fixed() 
    4141 
    4242      Agrif_UseSpecialValueInUpdate = .TRUE. 
    4343      Agrif_SpecialValueFineGrid = 0. 
    4444      !  
    45       IF (MOD(nbcline,nbclineupdate) == 0) THEN 
    4645# if ! defined DECAL_FEEDBACK 
    47          CALL Agrif_Update_Variable(tsn_id, procname=updateTS) 
     46      CALL Agrif_Update_Variable(tsn_id, procname=updateTS) 
     47! near boundary update: 
     48!      CALL Agrif_Update_Variable(tsn_id,locupdate=(/0,2/), procname=updateTS) 
    4849# else 
    49          CALL Agrif_Update_Variable(tsn_id, locupdate=(/1,0/),procname=updateTS) 
     50      CALL Agrif_Update_Variable(tsn_id, locupdate=(/1,0/),procname=updateTS) 
     51! near boundary update: 
     52!      CALL Agrif_Update_Variable(tsn_id,locupdate=(/1,2/), procname=updateTS) 
    5053# endif 
    51       ELSE 
    52 # if ! defined DECAL_FEEDBACK 
    53          CALL Agrif_Update_Variable(tsn_id,locupdate=(/0,2/), procname=updateTS) 
    54 # else 
    55          CALL Agrif_Update_Variable(tsn_id,locupdate=(/1,2/), procname=updateTS) 
    56 # endif 
    57       ENDIF 
    5854      ! 
    5955      Agrif_UseSpecialValueInUpdate = .FALSE. 
     
    7167      ! 
    7268#if defined TWO_WAY 
    73       IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update momentum from grid Number',Agrif_Fixed(), 'nbcline', nbcline 
     69      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update momentum from grid Number',Agrif_Fixed() 
    7470 
    7571      Agrif_UseSpecialValueInUpdate = .FALSE. 
    7672      Agrif_SpecialValueFineGrid = 0. 
    7773      !      
    78       IF (mod(nbcline,nbclineupdate) == 0) THEN 
    7974# if ! defined DECAL_FEEDBACK 
    80          CALL Agrif_Update_Variable(un_update_id,procname = updateU) 
    81          CALL Agrif_Update_Variable(vn_update_id,procname = updateV) 
     75      CALL Agrif_Update_Variable(un_update_id,procname = updateU) 
     76      CALL Agrif_Update_Variable(vn_update_id,procname = updateV) 
     77! near boundary update: 
     78!      CALL Agrif_Update_Variable(un_update_id,locupdate=(/0,1/),procname = updateU) 
     79!      CALL Agrif_Update_Variable(vn_update_id,locupdate=(/0,1/),procname = updateV) 
    8280# else 
    83          CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,-1/),locupdate2=(/1,-2/),procname = updateU) 
    84          CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname = updateV) 
     81      CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,-1/),locupdate2=(/1,-2/),procname = updateU) 
     82      CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname = updateV) 
     83! near boundary update: 
     84!      CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,1/),locupdate2=(/1,1/),procname = updateU) 
     85!      CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,1/),locupdate2=(/0,1/),procname = updateV) 
    8586# endif 
    86       ELSE 
    87 # if ! defined DECAL_FEEDBACK 
    88          CALL Agrif_Update_Variable(un_update_id,locupdate=(/0,1/),procname = updateU) 
    89          CALL Agrif_Update_Variable(vn_update_id,locupdate=(/0,1/),procname = updateV)          
    90 # else 
    91          CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,1/),locupdate2=(/1,1/),procname = updateU) 
    92          CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,1/),locupdate2=(/0,1/),procname = updateV) 
    93 # endif 
    94       ENDIF 
    9587 
    9688# if ! defined DECAL_FEEDBACK 
     
    10193      CALL Agrif_Update_Variable(e2v_id,locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname = updateV2d)   
    10294# endif 
    103       ! 
    104       nbcline = nbcline + 1 
    10595      ! 
    10696# if ! defined DECAL_FEEDBACK 
Note: See TracChangeset for help on using the changeset viewer.