Changeset 545

Timestamp:

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

Author:

lmdzadmin

Message:

Suite des modifs pour adaptation a Prism MED
LF

Location:

LMDZ.3.3/branches/rel-LF

Files:

• libf/dyn3d/bilan_dyn.F (modified) (1 diff)
• libf/dyn3d/conf_gcm.F (modified) (1 diff)
• libf/dyn3d/diagedyn.F (modified) (1 diff)
• libf/phylmd/interface_surf.F90 (modified) (1 diff)
• makegcm (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F

@@ -111 +111 @@
       character*10 znom(ntr,nQ)
       character*20 znoml(ntr,nQ)
+cvg>>
+      save znom, nom
+cvg<<
       character*10 zunites(ntr,nQ)
       integer iave,itot,immc,itrs,istn

LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F

@@ -720 +720 @@
       write(tapeout,*)' nbapp_rad = ', nbapp_rad
       write(tapeout,*)' iflag_con = ', iflag_con
-      write(tapeout,*)' clonn = ', clonn 
-      write(tapeout,*)' clatt = ', clatt
+      write(tapeout,*)' clonn = ', clon
+      write(tapeout,*)' clatt = ', clat
       write(tapeout,*)' grossismx = ', grossismx
       write(tapeout,*)' grossismy = ', grossismy

LMDZ.3.3/branches/rel-LF/libf/dyn3d/diagedyn.F

@@ -55 +55 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "../phylmd/YOMCST.h"
-#include "../phylmd/YOETHF.h"
+Cmed#include "../phylmd/YOMCST.h"
+Cmed#include "../phylmd/YOETHF.h"
+#include "YOMCST.h"
+#include "YOETHF.h"
 C
       INTEGER imjmp1

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"

LMDZ.3.3/branches/rel-LF/makegcm

@@ -811 +811 @@
 endif
 
+if ($couple == true) then
+  set optim=" $optim -DCPP_COUPLE"
+  set optim90=" $optim90 -DCPP_COUPLE"
+  set optimtru90=" $optimtru90 -DCPP_COUPLE"
+endif
+
 set link="$f90 $optim90"