Changeset 1615 for LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Feb 10, 2012, 4:42:26 PM (13 years ago)

Author:

Ehouarn Millour

Message:

Introducing "phydev", the minimal physics package.
makegcm and makelmdz_fcm script have been updated to add CPP_PHYS preprocessing key when building with physics and CPP_EARTH for Earth (LMD physics) related routines or instructions in the dynamics.
Checked (on Vargas) that "dev" physics package compiles and runs well in all (seq/mpi/omp/mpi_omp) modes and that introduced changes do not modify results when using the "lmd" physics package.
EM + FH

File:

• LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -728 +728 @@
 ! Ehouarn: be careful, diagedyn is Earth-specific (includes ../phylmd/..)!
            IF (planet_type.eq."earth") THEN
+#ifdef CPP_EARTH
             CALL diagedyn(ztit,2,1,1,dtphys
      &    , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+#endif
            ENDIF
       ENDIF