Changeset 2026 for trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

Timestamp:

Oct 25, 2018, 5:25:58 PM (6 years ago)

Author:

jvatant

Message:

Radiative transfer init minor change
-> Make L_NGAUSS be read by master in g.dat by sugas_corrk as for L_NPREF,L_NTREF ...
-- JVO.

File:

• trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

@@ -79 +79 @@
       !!! ALLOCATABLE STUFF SO THAT DIMENSIONS ARE READ in *.dat FILES -- AS 12/2011  
       REAL*8, DIMENSION(:,:,:,:,:), ALLOCATABLE :: gasi, gasv
-      REAL*8, DIMENSION(:), ALLOCATABLE :: PGASREF, TGASREF, WREFVAR, PFGASREF
+      REAL*8, DIMENSION(:), ALLOCATABLE :: PGASREF, TGASREF, WREFVAR, PFGASREF, GWEIGHT
       real*8 FZEROI(L_NSPECTI)
       real*8 FZEROV(L_NSPECTV)
@@ -129 +129 @@
       real*8,parameter :: UBARI = 0.5D0
 
-      real*8,save :: gweight(L_NGAUSS)
 !$OMP THREADPRIVATE(QREFvis,QREFir,omegaREFvis,omegaREFir,&     ! gweight read by master in sugas_corrk
                 !$OMP tstellar,planckir,PTOP)