Changeset 738 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/physiq.F

Timestamp:

Nov 28, 2006, 3:40:13 PM (18 years ago)

Author:

lmdzadmin

Message:

Correction bug: le seed pour le simulateur ISCCP doit etre aleatoire.
FC/IM

File:

• LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/physiq.F

@@ -381 +381 @@
       REAL nbsunlit(nregISCtot,klon)  !nbsunlit : moyenne de sunlit
       INTEGER ncol, seed(klon)
+cIM ajout seed_re (REAL)et seed_old (integer)
+      REAL seed_re(klon), aa
+      INTEGER seed_old(klon)
+      SAVE seed_old
+
 
 c ncol = nb. de sous-colonnes pour chaque maille du GCM