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 3973 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90 – NEMO

Ignore:
Timestamp:
2013-07-12T13:54:28+02:00 (11 years ago)
Author:
clevy
Message:

Configuration setting/Step3, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r3294 r3973  
    317317         gphi0 = - ppe2_m * 1.e-3 
    318318          
    319 #if defined key_agrif && defined key_eel_r6 
    320          IF( .NOT. Agrif_Root() ) THEN 
    321            glam0  = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3 
    322            gphi0  = Agrif_Parent(gphi0) + (Agrif_iy())*Agrif_Parent(ppe2_m) * 1.e-3 
    323            ppe1_m = Agrif_Parent(ppe1_m)/Agrif_Rhox() 
    324            ppe2_m = Agrif_Parent(ppe2_m)/Agrif_Rhoy()           
     319#if defined key_agrif  
     320         IF ( cp_cfg == 'eel' .AND. jp_cfg == 6 ) THEN    ! for EEL6 configuration only 
     321            IF( .NOT. Agrif_Root() ) THEN 
     322              glam0  = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3 
     323              gphi0  = Agrif_Parent(gphi0) + (Agrif_iy())*Agrif_Parent(ppe2_m) * 1.e-3 
     324              ppe1_m = Agrif_Parent(ppe1_m)/Agrif_Rhox() 
     325              ppe2_m = Agrif_Parent(ppe2_m)/Agrif_Rhoy()           
     326            ENDIF 
    325327         ENDIF 
    326328#endif          
     
    516518         zphi0   = ppgphi0 - FLOAT( jpjglo/2) * ppe2_m / ( ra * rad )           ! latitude of the first row F-points 
    517519          
    518 #if defined key_agrif && defined key_eel_r6 
    519          IF( .NOT. Agrif_Root() ) THEN 
    520            zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) 
     520#if defined key_agrif 
     521         IF cp_cfg == 'eel' .AND. jp_cfg == 6 ) THEN    ! for EEL6 configuration only 
     522            IF( .NOT. Agrif_Root() ) THEN 
     523              zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) 
     524            ENDIF 
    521525         ENDIF 
    522526#endif          
Note: See TracChangeset for help on using the changeset viewer.