- Timestamp:
- 2013-07-12T13:54:28+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r3294 r3973 317 317 gphi0 = - ppe2_m * 1.e-3 318 318 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 325 327 ENDIF 326 328 #endif … … 516 518 zphi0 = ppgphi0 - FLOAT( jpjglo/2) * ppe2_m / ( ra * rad ) ! latitude of the first row F-points 517 519 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 521 525 ENDIF 522 526 #endif
Note: See TracChangeset
for help on using the changeset viewer.