Changeset 1804 for branches/dev_005_AWL/NEMO/OPA_SRC/DOM/domhgr.F90

Timestamp:

2010-02-08T11:51:02+01:00 (14 years ago)

Author:

sga

Message:

merge of trunk changes from r1782 to r1802 into NEMO branch dev_005_AWL

File:

• branches/dev_005_AWL/NEMO/OPA_SRC/DOM/domhgr.F90 (modified) (2 diffs)

branches/dev_005_AWL/NEMO/OPA_SRC/DOM/domhgr.F90

@@ -270 +270 @@
          
 #if defined key_agrif && defined key_eel_r6
-         IF (.Not.Agrif_Root()) THEN
+         IF( .NOT. Agrif_Root() ) THEN
            glam0  = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3
            gphi0  = Agrif_Parent(gphi0) + (Agrif_iy())*Agrif_Parent(ppe2_m) * 1.e-3
@@ -465 +465 @@
          
 #if defined key_agrif && defined key_eel_r6
-         IF (.Not.Agrif_Root()) THEN
+         IF( .NOT. Agrif_Root() ) THEN
            zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad)
          ENDIF