Changeset 1564 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

May 20, 2016, 8:16:32 AM (9 years ago)

Author:

emillour

Message:

All GCMS:

• correction wrt previous commit: inigeom is also the name of a routine

in dyn3d_common! To avoid confusion rename inigeom (in dynphy_lonlat)
inigeomphy.

• cosmetic cleanup in leapfrog ('fake' calls to init_phys_lmdz,

which no longer exists, removed).
EM

File:

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

trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

@@ -211 +211 @@
       real :: dtec
       real :: ztetaec(ip1jmp1,llm)
-
-c dummy: sinon cette routine n'est jamais compilee...
-      if(1.eq.0) then
-#ifdef CPP_PHYS
-        CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
-#endif
-      endif
 
       if (nday>=0) then