source: LMDZ5/trunk/libf/phylmd/rrtm/suscm.F90

Last change on this file was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 2.6 KB
RevLine 
[1989]1SUBROUTINE SUSCM(KULOUT)
2
3#ifdef DOC
4
5!**** *SUSCM*   - Initialize MODULE YOMSCM controlling extraction of Single-Column profiles.
6
7!     Purpose.
8!     --------
9
10!**   Interface.
11!     ----------
12!        *CALL* *SUSCM(KULOUT)
13
14!        Explicit arguments :
15!        --------------------
16!        KULOUT : Logical unit for the output
17
18!        Implicit arguments :
19!        --------------------
20!        MODULE YOMSCM
21
22!     Method.
23!     -------
24!        See documentation
25
26!     Externals.
27!     ----------
28
29!     Reference.
30!     ----------
31
32!     Author.
33!     -------
34!        J.M. Piriou.
35
36!     Modifications.
37!     --------------
38!        Original : 2002-03-17
39!        M.Hamrud      01-Oct-2003 CY28 Cleaning
40!        M.Hamrud      01-Dec-2003 CY28R1 Cleaning
41!     ------------------------------------------------------------------
42#endif
43
44USE PARKIND1  ,ONLY : JPIM     ,JPRB
45USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
46! Ce qui concerne NULNAM commente par MPL le 15.04.09
47!USE YOMLUN   , ONLY : NULNAM
48USE YOMSCM  , ONLY : &
49 & LGSCM, NFRSCM, NSCMTS, NSCM_SPACE_S &
50 & , GSCM_LON1, GSCM_LON2, GSCM_LAT1, GSCM_LAT2 &
51 & , GSCM_RADIUS, NSCM_ADD_SAMPL 
52
53IMPLICIT NONE
54
55INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT
56INTEGER(KIND=JPIM) ::J
57REAL(KIND=JPRB) :: ZHOOK_HANDLE
58
59#include "posnam.intfb.h"
60
61#include "namscm.h"
62
63!-------------------------------------------------
64! 1. Default values.
65!-------------------------------------------------
66
67IF (LHOOK) CALL DR_HOOK('SUSCM',0,ZHOOK_HANDLE)
68LGSCM=.FALSE.
69NFRSCM=1
70NSCMTS=0
71NSCM_SPACE_S=0
72NSCM_ADD_SAMPL=1
73GSCM_LON1=0.0_JPRB
74GSCM_LON2=0.0_JPRB
75GSCM_LAT1=0.0_JPRB
76GSCM_LAT2=0.0_JPRB
77GSCM_RADIUS=2.E-04_JPRB
78!     ------------------------------------------------------------------
79
80!*       2.    Modify default values.
81!              ----------------------
82
83! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
84!CALL POSNAM(NULNAM,'NAMSCM')
85!READ(NULNAM,NAMSCM)
86!     ------------------------------------------------------------------
87
88!*       3.    Print final values.
89!              -------------------
90
91WRITE(UNIT=KULOUT,FMT='(A)') ' MODULE YOMSCM'
92WRITE(UNIT=KULOUT,FMT='(A,L5)') '   LGSCM = ',LGSCM
93IF(LGSCM) THEN
94  WRITE(UNIT=KULOUT,FMT='(3(A,I5),5(A,G12.6))') &
95   & '   NFRSCM = ',NFRSCM &
96   & ,'NSCM_SPACE_S = ',NSCM_SPACE_S &
97   & ,'NSCM_ADD_SAMPL = ',NSCM_ADD_SAMPL &
98   & ,'GSCM_LON1 = ',GSCM_LON1 &
99   & ,'GSCM_LON2 = ',GSCM_LON2 &
100   & ,'GSCM_LAT1 = ',GSCM_LAT1 &
101   & ,'GSCM_LAT2 = ',GSCM_LAT2 &
102   & ,'GSCM_RADIUS = ',GSCM_RADIUS 
103  WRITE(KULOUT,*) '   NSCMTS =  ',NSCMTS(0),(NSCMTS(J),J=1,ABS(NSCMTS(0)))
104ENDIF
105IF (LHOOK) CALL DR_HOOK('SUSCM',1,ZHOOK_HANDLE)
106END SUBROUTINE SUSCM
Note: See TracBrowser for help on using the repository browser.