suscm.F90

Go to the documentation of this file.

SUBROUTINE suscm(KULOUT)

#ifdef DOC

!**** *SUSCM*   - Initialize MODULE YOMSCM controlling extraction of Single-Column profiles.

!     Purpose.
!     --------

!**   Interface.
!     ----------
!        *CALL* *SUSCM(KULOUT)

!        Explicit arguments :
!        --------------------
!        KULOUT : Logical unit for the output

!        Implicit arguments :
!        --------------------
!        MODULE YOMSCM

!     Method.
!     -------
!        See documentation

!     Externals.
!     ----------

!     Reference.
!     ----------

!     Author.
!     -------
!        J.M. Piriou.

!     Modifications.
!     --------------
!        Original : 2002-03-17
!        M.Hamrud      01-Oct-2003 CY28 Cleaning
!        M.Hamrud      01-Dec-2003 CY28R1 Cleaning
!     ------------------------------------------------------------------
#endif

USE parkind1  ,ONLY : jpim     ,jprb
USE yomhook   ,ONLY : lhook,   dr_hook
! Ce qui concerne NULNAM commente par MPL le 15.04.09
!USE YOMLUN   , ONLY : NULNAM
USE yomscm  , ONLY : &
 & lgscm, nfrscm, nscmts, nscm_space_s &
 & , gscm_lon1, gscm_lon2, gscm_lat1, gscm_lat2 &
 & , gscm_radius, nscm_add_sampl  

IMPLICIT NONE

INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
INTEGER(KIND=JPIM) ::J
REAL(KIND=JPRB) :: ZHOOK_HANDLE

#include "posnam.intfb.h"

#include "namscm.h"

!-------------------------------------------------
! 1. Default values.
!-------------------------------------------------

IF (lhook) CALL dr_hook('SUSCM',0,zhook_handle)
lgscm=.false.
nfrscm=1
nscmts=0
nscm_space_s=0
nscm_add_sampl=1
gscm_lon1=0.0_jprb
gscm_lon2=0.0_jprb
gscm_lat1=0.0_jprb
gscm_lat2=0.0_jprb
gscm_radius=2.e-04_jprb
!     ------------------------------------------------------------------

!*       2.    Modify default values.
!              ----------------------

! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
!CALL POSNAM(NULNAM,'NAMSCM')
!READ(NULNAM,NAMSCM)
!     ------------------------------------------------------------------

!*       3.    Print final values.
!              -------------------

WRITE(unit=kulout,fmt='(A)') ' MODULE YOMSCM'
WRITE(unit=kulout,fmt='(A,L5)') '   LGSCM = ',lgscm
IF(lgscm) THEN
  WRITE(unit=kulout,fmt='(3(A,I5),5(A,G12.6))') &
   & '   NFRSCM = ',nfrscm &
   & ,'NSCM_SPACE_S = ',nscm_space_s &
   & ,'NSCM_ADD_SAMPL = ',nscm_add_sampl &
   & ,'GSCM_LON1 = ',gscm_lon1 &
   & ,'GSCM_LON2 = ',gscm_lon2 &
   & ,'GSCM_LAT1 = ',gscm_lat1 &
   & ,'GSCM_LAT2 = ',gscm_lat2 &
   & ,'GSCM_RADIUS = ',gscm_radius  
  WRITE(kulout,*) '   NSCMTS =  ',nscmts(0),(nscmts(j),j=1,abs(nscmts(0)))
ENDIF
IF (lhook) CALL dr_hook('SUSCM',1,zhook_handle)
END SUBROUTINE suscm