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_oce_update.F90

    r9758 r9780  
    144144      Agrif_UseSpecialValueInUpdate = .FALSE. 
    145145      ! 
    146 #  if defined DECAL_FEEDBACK && defined VOL_REFLUX 
     146#  if defined VOL_REFLUX 
    147147      IF ( ln_dynspg_ts.AND.ln_bt_fw ) THEN 
    148148         ! Refluxing on ssh: 
     149#  if defined DECAL_FEEDBACK 
    149150         CALL Agrif_Update_Variable(ub2b_update_id,locupdate1=(/0, 0/),locupdate2=(/1, 1/),procname = reflux_sshu) 
    150151         CALL Agrif_Update_Variable(vb2b_update_id,locupdate1=(/1, 1/),locupdate2=(/0, 0/),procname = reflux_sshv) 
     152#  else 
     153         CALL Agrif_Update_Variable(ub2b_update_id,locupdate1=(/-1,-1/),locupdate2=(/ 0, 0/),procname = reflux_sshu) 
     154         CALL Agrif_Update_Variable(vb2b_update_id,locupdate1=(/ 0, 0/),locupdate2=(/-1,-1/),procname = reflux_sshv) 
     155#  endif 
    151156      END IF 
    152157#  endif 
     
    157162 
    158163 
    159    SUBROUTINE Agrif_Update_Tke( kt ) 
     164   SUBROUTINE Agrif_Update_Tke( ) 
    160165      !!--------------------------------------------- 
    161166      !!   *** ROUTINE Agrif_Update_Tke *** 
    162167      !!--------------------------------------------- 
    163168      !! 
    164       INTEGER, INTENT(in) :: kt  
    165169      !  
    166170      IF (Agrif_Root()) RETURN 
    167171      !        
    168       IF( ( Agrif_NbStepint() .NE. 0 ) .AND. (kt /= 0) ) RETURN 
    169172#  if defined TWO_WAY 
    170173 
Note: See TracChangeset for help on using the changeset viewer.