Changeset 2195 for LMDZ5/trunk/libf

Timestamp:

Feb 6, 2015, 11:50:14 AM (10 years ago)

Author:

jyg

Message:

Inclusion of IMPLICIT NONE and some cleaning in cv3_inip.F90

File:

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

LMDZ5/trunk/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