Changeset 688

Timestamp:

Apr 4, 2006, 5:03:23 PM (19 years ago)

Author:

lmdzadmin

Message:

Modif. jour -> jourvrai si slab ocean
IM

File:

• LMDZ4/trunk/libf/phylmd/condsurf.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/condsurf.F

@@ -29 +29 @@
       PARAMETER ( nannemax = 60 )
 c
-      INTEGER jour
-      INTEGER jourvrai
+      INTEGER jour, jourvrai
       REAL lmt_bils(klon) !bilan chaleur au sol
 c
@@ -93 +92 @@
 c
       debut(1) = 1
-      debut(2) = jour
+      debut(2) = jourvrai
       epais(1) = klon
       epais(2) = 1
@@ -104 +103 @@
          CALL abort
       ENDIF
-c     PRINT*,'debut,epais',debut,epais
+      PRINT*,'debut,epais',debut,epais,'jour,jourvrai',jour,jourvrai
 #ifdef NC_DOUBLE
       ierr = NF_GET_VARA_DOUBLE(nid, nvarid,debut,epais,lmt_bils)