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

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/dyn3dpar/leapfrog_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -222 +222 @@
       LOGICAL :: ok_start_timer=.FALSE.
       LOGICAL, SAVE :: firstcall=.TRUE.
-
-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
 
 c$OMP MASTER