Changeset 499 for LMDZ.3.3/branches/rel-LF/libf/phylmd

Timestamp:

Mar 23, 2004, 5:46:44 PM (21 years ago)

Author:

lmdzadmin

Message:

IM: ajout pourc. surface issu d'Orchidee (pctsrf_new) en argument

File:

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

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

@@ -2 +2 @@
 c $Header$
 c
-
-      SUBROUTINE clmain(dtime,itap,date0,pctsrf,
+      SUBROUTINE clmain(dtime,itap,date0,pctsrf,pctsrf_new,
      .                  t,q,u,v,
      .                  jour, rmu0, co2_ppm,