Changeset 963 for LMDZ4/trunk/libf/phylmd/YOMCST2.h

Timestamp:

Jun 9, 2008, 11:54:29 AM (16 years ago)

Author:

Laurent Fairhead

Message:

On passe les parametres lus dans parameter_mix.data et supcrit.data dans le
physiq.def
LF

File:

• LMDZ4/trunk/libf/phylmd/YOMCST2.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/YOMCST2.h

@@ -1 +1 @@
 
-      INTEGER choice
+      INTEGER choice, iflag_mix
       REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
       REAL  Qcoef1max,Qcoef2max,Supcrit1,Supcrit2
-C
-      COMMON/YOMCST2/gammas,    alphas, betas, Fmax, choice, scut,
-     $               qqa1, qqa2, qqa3,
-     $               Qcoef1max,Qcoef2max,
-     $               Supcrit1, Supcrit2
-C    --------------------------------------------------------------------
+!
+      COMMON/YOMCST2/gammas,    alphas, betas, Fmax, scut,              &
+     &               qqa1, qqa2, qqa3,                                  &
+     &               Qcoef1max,Qcoef2max,                               &
+     &               Supcrit1, Supcrit2,                                &
+     &               choice,iflag_mix
+!    --------------------------------------------------------------------