Changeset 2220 for LMDZ5/branches/testing/libf/phylmd/cv3_inip.F90

Timestamp:

Mar 3, 2015, 2:41:13 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2186:2216 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3_inip.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/cv3_inip.F90

@@ -1 +1 @@
 SUBROUTINE cv3_inip()
-  ! **************************************************************
-  ! *
-  ! CV3_INIP Lecture des choix de lois de probabilité de mélange*
-  ! et calcul de leurs coefficients normalisés.        *
-  ! *
-  ! written by   : Jean-Yves Grandpeix, 06/06/2006, 19.39.27    *
-  ! modified by :                                               *
-  ! **************************************************************
+  ! *******************************************************************
+  ! *                                                                  *
+  ! CV3_INIP Input = choice of mixing probability laws                 *
+  !          Output = normalized coefficients of the probability laws. *
+  ! *                                                                  *
+  ! written by   : Jean-Yves Grandpeix, 06/06/2006, 19.39.27           *
+  ! modified by :                                                      *
+  ! *******************************************************************
+!
+!----------------------------------------------
+!  INPUT (from Common YOMCST2 in "YOMCST2.h") : 
+! iflag_mix
+! gammas    
+! alphas
+! betas
+! Fmax
+! scut
+!
+!----------------------------------------------
+!  INPUT/OUTPUT (from and to Common YOMCST2 in "YOMCST2.h") : 
+! qqa1
+! qqa2
+!
+!----------------------------------------------
+!  OUTPUT (to Common YOMCST2 in "YOMCST2.h") :
+! Qcoef1max
+! Qcoef2max
+!
+!----------------------------------------------
+
+  IMPLICIT NONE
 
   include "YOMCST2.h"
 
-  ! INTEGER iflag_mix
   include 'iniprint.h'
 
-  CHARACTER (LEN=20) :: modname = 'cv3_inip'
-  CHARACTER (LEN=80) :: abort_message
+!----------------------------------------------
+! Local variables :
+   CHARACTER (LEN=20) :: modname = 'cv3_inip'
+   CHARACTER (LEN=80) :: abort_message
+
+   REAL               :: sumcoef
+   REAL               :: sigma, aire, pdf, mu, df
+   REAL               :: ff