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

Timestamp:

Jul 29, 2000, 1:09:57 PM (24 years ago)

Author:

lmdzadmin

Message:

Passage des dimensions de la grille a inicma
LF

File:

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

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

@@ -13 +13 @@
 C     -----------------------------------------------------------
 C
-      SUBROUTINE inicma(kastp,kexch,kstep)
-c
-      INCLUDE 'param.h'
-c
-      INTEGER kastp, kexch, kstep
+      SUBROUTINE inicma(kastp,kexch,kstep,imjm)
+c
+c     INCLUDE 'param.h'
+c
+      INTEGER kastp, kexch, kstep,imjm
       INTEGER iparal(3)
       INTEGER ifcpl, idt, info, imxtag, istep, jf