Changeset 11739


Ignore:
Timestamp:
2019-10-21T10:49:30+02:00 (10 months ago)
Author:
jchanut
Message:

#2222, make possible vertical coordinate change with VORTEX (child vertical grid spacing chosen in namelist) + fix to compile VORTEX without key_AGRIF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/tests/VORTEX/MY_SRC/usrdef_nam.F90

    r11573 r11739  
    7272         rn_dx = Agrif_Parent(rn_dx)/Agrif_Rhox() 
    7373         rn_dy = Agrif_Parent(rn_dy)/Agrif_Rhoy() 
     74#if ! defined key_vertical 
    7475         rn_dz = Agrif_Parent(rn_dz) 
     76#endif 
    7577         rn_ppgphi0 = Agrif_Parent(rn_ppgphi0) 
    7678      ENDIF 
     
    8284      kk_cfg = nINT( rn_dx ) 
    8385      ! 
    84       IF( Agrif_Root() ) THEN       ! Global Domain size:  VORTEX global domain is  1800 km x 1800 Km x 5000 m 
    85          kpi = NINT( 1800.e3  / rn_dx ) + 3   
    86          kpj = NINT( 1800.e3  / rn_dy ) + 3  
    87       ELSE 
     86      kpi = NINT( 1800.e3  / rn_dx ) + 3 
     87      kpj = NINT( 1800.e3  / rn_dy ) + 3 
     88 
     89#if defined key_agrif  
     90      IF( .NOT.Agrif_Root() ) THEN       ! Global Domain size:  VORTEX global domain is  1800 km x 1800 Km x 5000 m 
    8891         kpi  = nbcellsx + 2 + 2*nbghostcells 
    8992         kpj  = nbcellsy + 2 + 2*nbghostcells 
    9093      ENDIF 
     94#endif 
     95 
    9196      kpk = NINT( 5000._wp / rn_dz ) + 1 
    9297      ! 
Note: See TracChangeset for help on using the changeset viewer.