Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing

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

    r1999 r2220  
    11SUBROUTINE cv3_inip()
    2   ! **************************************************************
    3   ! *
    4   ! CV3_INIP Lecture des choix de lois de probabilité de mélange*
    5   ! et calcul de leurs coefficients normalisés.        *
    6   ! *
    7   ! written by   : Jean-Yves Grandpeix, 06/06/2006, 19.39.27    *
    8   ! modified by :                                               *
    9   ! **************************************************************
     2  ! *******************************************************************
     3  ! *                                                                  *
     4  ! CV3_INIP Input = choice of mixing probability laws                 *
     5  !          Output = normalized coefficients of the probability laws. *
     6  ! *                                                                  *
     7  ! written by   : Jean-Yves Grandpeix, 06/06/2006, 19.39.27           *
     8  ! modified by :                                                      *
     9  ! *******************************************************************
     10!
     11!----------------------------------------------
     12!  INPUT (from Common YOMCST2 in "YOMCST2.h") :
     13! iflag_mix
     14! gammas   
     15! alphas
     16! betas
     17! Fmax
     18! scut
     19!
     20!----------------------------------------------
     21!  INPUT/OUTPUT (from and to Common YOMCST2 in "YOMCST2.h") :
     22! qqa1
     23! qqa2
     24!
     25!----------------------------------------------
     26!  OUTPUT (to Common YOMCST2 in "YOMCST2.h") :
     27! Qcoef1max
     28! Qcoef2max
     29!
     30!----------------------------------------------
     31
     32  IMPLICIT NONE
    1033
    1134  include "YOMCST2.h"
    1235
    13   ! INTEGER iflag_mix
    1436  include 'iniprint.h'
    1537
    16   CHARACTER (LEN=20) :: modname = 'cv3_inip'
    17   CHARACTER (LEN=80) :: abort_message
     38!----------------------------------------------
     39! Local variables :
     40   CHARACTER (LEN=20) :: modname = 'cv3_inip'
     41   CHARACTER (LEN=80) :: abort_message
     42
     43   REAL               :: sumcoef
     44   REAL               :: sigma, aire, pdf, mu, df
     45   REAL               :: ff
    1846
    1947
Note: See TracChangeset for help on using the changeset viewer.