Changeset 545 for LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

Timestamp:

Sep 20, 2004, 5:02:46 PM (20 years ago)

Author:

lmdzadmin

Message:

Suite des modifs pour adaptation a Prism MED
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -1340 +1340 @@
   INTEGER :: ndexct(iim*(jjm+1)),ndexcs(iim*(jjm+1))
   REAL :: zx_lon(iim,jjm+1), zx_lat(iim,jjm+1), zjulian
-  integer :: idayref, itau_w
+  integer :: idayref
+!med  integer :: itau_w
+  integer,save :: itau_w
 #include "param_cou.h"
 #include "inc_cpl.h"