PGF90 (Version     12.8)          08/30/2020  00:27:49      page 1

Switches: -noasm -nodclchk -nodebug -nodlines -noline -list
          -idir ../include
          -inform warn -opt 1 -nosave -object -noonetrip
          -depchk on -nostandard     
          -nosymbol -noupcase    

Filename: initmap.f90

(    1)       subroutine initmap
(    2) 
(    3)        USE mod_graph
(    4)       implicit none
(    5)       include 'param_o.h'
(    6) 
../include/param_o.h
(    1)*      integer,parameter  :: im0=401
(    2)*      integer, parameter :: nm=6
(    3)*      integer, parameter :: lm = 50
(    4)*      integer, parameter :: nsub = 10
(    5)*
(    6)*      integer, parameter :: im=im0, jm=im
(    7)*      integer, parameter :: im1=im-1, jm1=jm-1
(    8)*
(    9)*      integer, parameter :: lm1 = lm-1, lp1 =lm +1  
(   10)*
(   11)*      integer, parameter :: ixm = nsub, jym = ixm, nxy = ixm*jym
(   12)*      integer, parameter :: ildom = (im - 1)/ixm, jldom = (jm - 1)/jym
(   13)*      integer, parameter :: ilm = (im - 1)/ixm +1, jlm = (jm - 1)/jym +1 
(   14)*
(   15)*      logical,parameter::flat=.false.
(   16)*      logical,parameter::hstst=.false.
(   17)*
(   18)*!      integer,parameter::igm=360, jgm = 181
(   19)*      integer,parameter::igm=(im0-1)*4, jgm = (igm/2)+1      
(   20)*      real,parameter::alfa=0.0, beta=0.0, gamm=0.0
(   21)*!      real,parameter::alfa=0.*3.1415926/180.,beta=66.*3.1415926/180. &
(   22)*!	              ,gamm=175.*3.1415926/180.
(   23)*
(   24)*!GSM      integer,parameter::lsm=20
(   25)*      integer,parameter::lsm=31
(   26)*
(   27)*!RESTART
(   28)*
(   29)*      character(len=10):: restartdate='2020080412'    !restart date to create appropriate folder name
(    7)       real,dimension(igm,jgm)::glon,glat    !  DRAGAN
(    8) 
(    9)       integer::i,j
(   10) 
(   11)       !! call alloc_graph
(   12)       open(unit=301,file="grph.dat",form="unformatted")
(   13) !!!      open(unit=301,file="../data_in/grid/grph.dat",form="unformatted")
(   14) !!!      open(unit=301,file="/scratchin/grupos/grpeta/projetos/tempo/oper/GEF_v1.0.0-KF/gef_trunk/PRP/data_in/grid/grph.dat",form="unformatted")
(   15)       Read (301) GLON,GLAT,XMP0,YMP0,KMP0, u2us, v2us, u2vs, v2vs
(   16)       Close(301)
(   17) 
(   18)       end subroutine initmap