Changeset 397 for LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true

Timestamp:

Jul 22, 2002, 10:50:58 AM (22 years ago)

Author:

lmdzadmin

Message:

Champs supplementaire dans le coupleur (calving) + dependance des routines
"couplees" aux include
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true (modified) (6 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.true

@@ -15 +15 @@
       SUBROUTINE inicma(kastp,kexch,kstep,imjm)
 c
-c     INCLUDE 'param.h'
+c     INCLUDE "param.h"
 c
       INTEGER kastp, kexch, kstep,imjm
@@ -21 +21 @@
       INTEGER ifcpl, idt, info, imxtag, istep, jf
 c
-      INCLUDE 'param_cou.h'
-      INCLUDE 'inc_cpl.h'
+#include "param_cou.h"
+#include "inc_cpl.h"
       CHARACTER*3 cljobnam      ! experiment name
       CHARACTER*6 clmodnam      ! model name
@@ -37 +37 @@
       PARAMETER (nuout = 6)
 c
-      INCLUDE 'clim.h'
-      INCLUDE 'mpiclim.h'
-c
-      INCLUDE 'oasis.h' ! contains the name of communication technique. Here
+#include "clim.h"
+#include "mpiclim.h"
+c
+#include "oasis.h"      ! contains the name of communication technique. Here
                         ! cchan=CLIM only is possible.
 c                       ! ctype=MPI2
@@ -268 +268 @@
       INTEGER info, jf
 c
-      INCLUDE 'clim.h'
-c
-      INCLUDE 'oasis.h'
-      INCLUDE 'param_cou.h'
-c
-      INCLUDE 'inc_cpl.h'
+#include "clim.h"
+c
+#include "oasis.h"
+#include "param_cou.h"
+c
+#include "inc_cpl.h"
 c
 c
@@ -346 +346 @@
       PARAMETER (nuout = 6)
 c
-      INCLUDE 'clim.h'
-      INCLUDE 'param_cou.h'
-      INCLUDE 'inc_cpl.h'
+#include "clim.h"
+#include "param_cou.h"
+#include "inc_cpl.h"
 c
       CHARACTER*8 file_name(jpmaxfld)
@@ -358 +358 @@
       LOGICAL trouve
 c
-      INCLUDE 'oasis.h'
+#include "oasis.h"
 c
       icstep=kt