Changeset 2302 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Jun 17, 2015, 2:46:36 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Move etat0phys_netcdf.F90 to "dynlonlat_phylonlat/phylmd" as it relies on "phylmd" routines.
Some cleanup to remove obsolete and unecessary CPP_EARTH preprocessing condition.
EM

File:

• LMDZ5/trunk/libf/dyn3d/leapfrog.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/leapfrog.F

@@ -443 +443 @@
          IF (ip_ebil_dyn.ge.1 ) THEN 
           ztit='bil dyn'
-! Ehouarn: be careful, diagedyn is Earth-specific (includes ../phylmd/..)!
+! Ehouarn: be careful, diagedyn is Earth-specific!
            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 ! of IF (ip_ebil_dyn.ge.1 )