Changeset 15029


Ignore:
Timestamp:
2021-06-21T09:21:01+02:00 (5 months ago)
Author:
jchanut
Message:

#2698, fixes passive tracers repro/restart & remove euler time stepping in top namelists (not supported with AGRIF)

Location:
NEMO/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/1_namelist_top_cfg

    r14086 r15029  
    22&namtrc_run      !   run information 
    33!----------------------------------------------------------------------- 
    4    ln_top_euler = .true. 
    54/ 
    65!----------------------------------------------------------------------- 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/2_namelist_top_cfg

    r14086 r15029  
    22&namtrc_run      !   run information 
    33!----------------------------------------------------------------------- 
    4    ln_top_euler = .true. 
    54/ 
    65!----------------------------------------------------------------------- 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/3_namelist_top_cfg

    r14086 r15029  
    22&namtrc_run      !   run information 
    33!----------------------------------------------------------------------- 
    4    ln_top_euler = .true. 
    54/ 
    65!----------------------------------------------------------------------- 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/namelist_top_cfg

    r14086 r15029  
    22&namtrc_run      !   run information 
    33!----------------------------------------------------------------------- 
    4    ln_top_euler = .true. 
    54/ 
    65!----------------------------------------------------------------------- 
  • NEMO/trunk/src/NST/agrif_user.F90

    r14976 r15029  
    317317      Agrif_UseSpecialValue = .TRUE. 
    318318      l_vremap              = ln_vert_remap 
    319  
    320319      CALL Agrif_Bc_variable(ts_interp_id,calledweight=1.,procname=interptsn) 
    321320      CALL Agrif_Sponge 
     
    689688      !!---------------------------------------------------------------------- 
    690689      USE Agrif_Util 
     690      USE agrif_oce 
    691691      USE oce  
    692692      USE dom_oce 
     
    715715      Agrif_SpecialValue=0._wp 
    716716      Agrif_UseSpecialValue = .TRUE. 
     717      l_vremap              = ln_vert_remap 
    717718      CALL Agrif_Bc_variable(trn_id,calledweight=1.,procname=interptrn) 
    718       Agrif_UseSpecialValue = .FALSE. 
    719719      CALL Agrif_Sponge 
    720720      tabspongedone_trn = .FALSE. 
    721721      CALL Agrif_Bc_variable(trn_sponge_id,calledweight=1.,procname=interptrn_sponge) 
     722      Agrif_UseSpecialValue = .FALSE. 
     723      l_vremap              = .FALSE. 
    722724      ! reset tsa to zero 
    723725      tr(:,:,:,:,Krhs_a) = 0._wp 
     
    751753            nitend =  Agrif_Parent(nitend)   *Agrif_IRhot() 
    752754         ENDIF 
     755       
     756         ! 
     757         IF (Agrif_Parent(ln_top_euler).OR.ln_top_euler) THEN 
     758            CALL ctl_stop( 'AGRIF and ln_top_euler=T not implemented') 
     759         ENDIF  
    753760      ENDIF 
    754761      ! 
Note: See TracChangeset for help on using the changeset viewer.