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

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.F (modified) (8 diffs)

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

@@ -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 
@@ -554 +554 @@
       END
 
-      SUBROUTINE halte
-      print *, 'Attention dans oasis.F, halte est non defini'
-      RETURN
-      END
-
-      SUBROUTINE locread
-      print *, 'Attention dans oasis.F, locread est non defini'
-      RETURN
-      END
-
-      SUBROUTINE locwrite
-      print *, 'Attention dans oasis.F, locwrite est non defini'
-      RETURN
-      END
-
       SUBROUTINE pipe_model_define
       print*,'Attention dans oasis.F, pipe_model_define est non defini'
@@ -589 +574 @@
       END
 
-      SUBROUTINE clim_stepi
-      print *, 'Attention dans oasis.F, clim_stepi est non defini'
-      RETURN
-      END
-
-      SUBROUTINE clim_start
-      print *, 'Attention dans oasis.F, clim_start est non defini'
-      RETURN
-      END
-
-      SUBROUTINE clim_import
-      print *, 'Attention dans oasis.F, clim_import est non defini'
-      RETURN
-      END
-
-      SUBROUTINE clim_export
-      print *, 'Attention dans oasis.F, clim_export est non defini'
-      RETURN
-      END
-
-      SUBROUTINE clim_init
-      print *, 'Attention dans oasis.F, clim_init est non defini'
-      RETURN
-      END
-
-      SUBROUTINE clim_define
-      print *, 'Attention dans oasis.F, clim_define est non defini'
-      RETURN
-      END
-
-      SUBROUTINE clim_quit
-      print *, 'Attention dans oasis.F, clim_quit est non defini'
-      RETURN
-      END
-
-      SUBROUTINE svipc_write
-      print *, 'Attention dans oasis.F, svipc_write est non defini'
-      RETURN
-      END
-
-      SUBROUTINE svipc_close
-      print *, 'Attention dans oasis.F, svipc_close est non defini'
-      RETURN
-      END
-
-      SUBROUTINE svipc_read
-      print *, 'Attention dans oasis.F, svipc_read est non defini'
-      RETURN
-      END
-
       SUBROUTINE quitcpl
       print *, 'Attention dans oasis.F, quitcpl est non defini'