Skip to content

Commit f2f8245

Browse files
sdrabenhsdrabenh
authored
Merge pull request #902 from GEOS-ESM/feature/narnold1/shocmf_updates
SHOC-MF updates
2 parents 8f182b0 + 0191a0a commit f2f8245

File tree

10 files changed

+407
-153
lines changed

10 files changed

+407
-153
lines changed

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1723,12 +1723,12 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC )
17231723
call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS )
17241724
VERIFY_(STATUS)
17251725

1726-
call ESMF_StateGet (GEX(TURBL), 'QT3' , FIELD, RC=STATUS )
1727-
VERIFY_(STATUS)
1728-
call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="Q", RC=STATUS )
1729-
VERIFY_(STATUS)
1730-
call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS )
1731-
VERIFY_(STATUS)
1726+
! call ESMF_StateGet (GEX(TURBL), 'QT3' , FIELD, RC=STATUS )
1727+
! VERIFY_(STATUS)
1728+
! call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="Q", RC=STATUS )
1729+
! VERIFY_(STATUS)
1730+
! call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS )
1731+
! VERIFY_(STATUS)
17321732

17331733
! Add Friendlies from Physics
17341734
call MAPL_GridCompGetFriendlies(GC, "TURBULENCE", BUNDLE, RC=STATUS )

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_BACM_1M_InterfaceMod.F90‎

Lines changed: 31 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
! $Id$
22

33
#include "MAPL_Generic.h"
4+
!#define PDFDIAG 1
45

56
!=============================================================================
67
!BOP
@@ -349,6 +350,12 @@ subroutine BACM_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
349350
real, pointer, dimension(:,: ) :: LS_SNR, CN_SNR, AN_SNR, SC_SNR
350351
real, pointer, dimension(:,:,:) :: PTR3D
351352
real, pointer, dimension(:,: ) :: PTR2D
353+
#ifdef PDFDIAG
354+
real, pointer, dimension(:,:,:) :: PDF_W1, PDF_W2, PDF_SIGW1, PDF_SIGW2, &
355+
PDF_QT1, PDF_QT2, PDF_SIGQT1, PDF_SIGQT2, &
356+
PDF_TH1, PDF_TH2, PDF_SIGTH1, PDF_SIGTH2, &
357+
PDF_RQTTH, PDF_RWTH, PDF_RWQT
358+
#endif
352359

353360
call ESMF_GridCompGet( GC, CONFIG=CF, RC=STATUS )
354361
VERIFY_(STATUS)
@@ -592,6 +599,24 @@ subroutine BACM_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
592599
call MAPL_GetPointer(EXPORT, WTHV2, 'WTHV2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
593600
call MAPL_GetPointer(EXPORT, WQL, 'WQL' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
594601

602+
#ifdef PDFDIAG
603+
call MAPL_GetPointer(EXPORT, PDF_W1, 'PDF_W1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
604+
call MAPL_GetPointer(EXPORT, PDF_W2, 'PDF_W2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
605+
call MAPL_GetPointer(EXPORT, PDF_SIGW1, 'PDF_SIGW1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
606+
call MAPL_GetPointer(EXPORT, PDF_SIGW2, 'PDF_SIGW2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
607+
call MAPL_GetPointer(EXPORT, PDF_QT1, 'PDF_QT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
608+
call MAPL_GetPointer(EXPORT, PDF_QT2, 'PDF_QT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
609+
call MAPL_GetPointer(EXPORT, PDF_SIGQT1, 'PDF_SIGQT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
610+
call MAPL_GetPointer(EXPORT, PDF_SIGQT2, 'PDF_SIGQT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
611+
call MAPL_GetPointer(EXPORT, PDF_TH1, 'PDF_TH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
612+
call MAPL_GetPointer(EXPORT, PDF_TH2, 'PDF_TH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
613+
call MAPL_GetPointer(EXPORT, PDF_SIGTH1, 'PDF_SIGTH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
614+
call MAPL_GetPointer(EXPORT, PDF_SIGTH2, 'PDF_SIGTH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
615+
call MAPL_GetPointer(EXPORT, PDF_RQTTH, 'PDF_RQTTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
616+
call MAPL_GetPointer(EXPORT, PDF_RWTH, 'PDF_RWTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
617+
call MAPL_GetPointer(EXPORT, PDF_RWQT, 'PDF_RWQT' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
618+
#endif
619+
595620
call PROGNO_CLOUD ( &
596621
IM*JM, LM , &
597622
DT_MOIST , &
@@ -690,6 +715,12 @@ subroutine BACM_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
690715
VFALLRN_AN , VFALLRN_LS ,VFALLRN_CN ,VFALLRN_SC , &
691716
PDF_A, PDFITERS, &
692717
DQVDT_macro, DQLDT_macro, DQIDT_macro, DQADT_macro, &
718+
#ifdef PDFDIAG
719+
PDF_SIGW1, PDF_SIGW2, PDF_W1, PDF_W2, &
720+
PDF_SIGTH1, PDF_SIGTH2, PDF_TH1, PDF_TH2, &
721+
PDF_SIGQT1, PDF_SIGQT2, PDF_QT1, PDF_QT2, &
722+
PDF_RQTTH, PDF_RWTH, PDF_RWQT, &
723+
#endif
693724
WTHV2, WQL, &
694725
NACTL, &
695726
NACTI, &

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_GFDL_1M_InterfaceMod.F90‎

Lines changed: 43 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
! $Id$
22

33
#include "MAPL_Generic.h"
4+
!#define PDFDIAG 1
45

56
!=============================================================================
67
!BOP
@@ -343,6 +344,12 @@ subroutine GFDL_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
343344
real, pointer, dimension(:,:) :: DBZ_MAX, DBZ_1KM, DBZ_TOP, DBZ_M10C
344345
real, pointer, dimension(:,:,:) :: PTR3D
345346
real, pointer, dimension(:,: ) :: PTR2D
347+
#ifdef PDFDIAG
348+
real, pointer, dimension(:,:,:) :: PDF_W1, PDF_W2, PDF_SIGW1, PDF_SIGW2, &
349+
PDF_QT1, PDF_QT2, PDF_SIGQT1, PDF_SIGQT2, &
350+
PDF_TH1, PDF_TH2, PDF_SIGTH1, PDF_SIGTH2, &
351+
PDF_RQTTH, PDF_RWTH, PDF_RWQT
352+
#endif
346353

347354
! Local variables
348355
real :: facEIS
@@ -540,6 +547,25 @@ subroutine GFDL_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
540547
DQSDT_macro=QSNOW
541548
DQGDT_macro=QGRAUPEL
542549

550+
#ifdef PDFDIAG
551+
call MAPL_GetPointer(EXPORT, PDF_W1, 'PDF_W1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
552+
call MAPL_GetPointer(EXPORT, PDF_W2, 'PDF_W2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
553+
call MAPL_GetPointer(EXPORT, PDF_SIGW1, 'PDF_SIGW1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
554+
call MAPL_GetPointer(EXPORT, PDF_SIGW2, 'PDF_SIGW2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
555+
call MAPL_GetPointer(EXPORT, PDF_QT1, 'PDF_QT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
556+
call MAPL_GetPointer(EXPORT, PDF_QT2, 'PDF_QT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
557+
call MAPL_GetPointer(EXPORT, PDF_SIGQT1, 'PDF_SIGQT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
558+
call MAPL_GetPointer(EXPORT, PDF_SIGQT2, 'PDF_SIGQT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
559+
call MAPL_GetPointer(EXPORT, PDF_TH1, 'PDF_TH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
560+
call MAPL_GetPointer(EXPORT, PDF_TH2, 'PDF_TH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
561+
call MAPL_GetPointer(EXPORT, PDF_SIGTH1, 'PDF_SIGTH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
562+
call MAPL_GetPointer(EXPORT, PDF_SIGTH2, 'PDF_SIGTH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
563+
call MAPL_GetPointer(EXPORT, PDF_RQTTH, 'PDF_RQTTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
564+
call MAPL_GetPointer(EXPORT, PDF_RWTH, 'PDF_RWTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
565+
call MAPL_GetPointer(EXPORT, PDF_RWQT, 'PDF_RWQT' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
566+
#endif
567+
568+
543569
! Include shallow precip condensates if present
544570
call MAPL_GetPointer(EXPORT, PTR3D, 'SHLW_PRC3', ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
545571
if (associated(PTR3D)) then
@@ -613,6 +639,23 @@ subroutine GFDL_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
613639
SL3(I,J,L) , &
614640
PDF_A(I,J,L) , &
615641
PDFITERS(I,J,L), &
642+
#ifdef PDFDIAG
643+
PDF_SIGW1(I,J,L), &
644+
PDF_SIGW2(I,J,L), &
645+
PDF_W1(I,J,L), &
646+
PDF_W2(I,J,L), &
647+
PDF_SIGTH1(I,J,L), &
648+
PDF_SIGTH2(I,J,L), &
649+
PDF_TH1(I,J,L), &
650+
PDF_TH2(I,J,L), &
651+
PDF_SIGQT1(I,J,L), &
652+
PDF_SIGQT2(I,J,L), &
653+
PDF_QT1(I,J,L), &
654+
PDF_QT2(I,J,L), &
655+
PDF_RQTTH(I,J,L), &
656+
PDF_RWTH(I,J,L), &
657+
PDF_RWQT(I,J,L), &
658+
#endif
616659
WTHV2(I,J,L) , &
617660
WQL(I,J,L) , &
618661
.false. , &

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MGB2_2M_InterfaceMod.F90‎

Lines changed: 41 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
! $Id$
22

33
#include "MAPL_Generic.h"
4+
!#define PDFDIAG 1
45

56
!=============================================================================
67
!BOP
@@ -507,7 +508,12 @@ subroutine MGB2_2M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
507508
real, pointer, dimension(:,:,:) :: RHCRIT3D
508509
real, pointer, dimension(:,:,:) :: PTR3D
509510
real, pointer, dimension(:,: ) :: PTR2D
510-
511+
#ifdef PDFDIAG
512+
real, pointer, dimension(:,:,:) :: PDF_W1, PDF_W2, PDF_SIGW1, PDF_SIGW2, &
513+
PDF_QT1, PDF_QT2, PDF_SIGQT1, PDF_SIGQT2, &
514+
PDF_TH1, PDF_TH2, PDF_SIGTH1, PDF_SIGTH2, &
515+
PDF_RQTTH, PDF_RWTH, PDF_RWQT
516+
#endif
511517

512518
!2m
513519
real, pointer, dimension(:,:,:) :: SC_ICE, CDNC_NUC, INC_NUC, PFRZ, &
@@ -1413,6 +1419,23 @@ subroutine MGB2_2M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
14131419
DQSDT_macro=QSNOW
14141420
DQGDT_macro=QGRAUPEL
14151421

1422+
#ifdef PDFDIAG
1423+
call MAPL_GetPointer(EXPORT, PDF_W1, 'PDF_W1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1424+
call MAPL_GetPointer(EXPORT, PDF_W2, 'PDF_W2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1425+
call MAPL_GetPointer(EXPORT, PDF_SIGW1, 'PDF_SIGW1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1426+
call MAPL_GetPointer(EXPORT, PDF_SIGW2, 'PDF_SIGW2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1427+
call MAPL_GetPointer(EXPORT, PDF_QT1, 'PDF_QT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1428+
call MAPL_GetPointer(EXPORT, PDF_QT2, 'PDF_QT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1429+
call MAPL_GetPointer(EXPORT, PDF_SIGQT1, 'PDF_SIGQT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1430+
call MAPL_GetPointer(EXPORT, PDF_SIGQT2, 'PDF_SIGQT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1431+
call MAPL_GetPointer(EXPORT, PDF_TH1, 'PDF_TH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1432+
call MAPL_GetPointer(EXPORT, PDF_TH2, 'PDF_TH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1433+
call MAPL_GetPointer(EXPORT, PDF_SIGTH1, 'PDF_SIGTH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1434+
call MAPL_GetPointer(EXPORT, PDF_SIGTH2, 'PDF_SIGTH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1435+
call MAPL_GetPointer(EXPORT, PDF_RQTTH, 'PDF_RQTTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1436+
call MAPL_GetPointer(EXPORT, PDF_RWTH, 'PDF_RWTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1437+
call MAPL_GetPointer(EXPORT, PDF_RWQT, 'PDF_RWQT' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
1438+
#endif
14161439

14171440
! Include shallow precip condensates if present
14181441
call MAPL_GetPointer(EXPORT, PTR3D, 'SHLW_PRC3', RC=STATUS); VERIFY_(STATUS)
@@ -1473,6 +1496,23 @@ subroutine MGB2_2M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
14731496
SL3(I,J,L) , &
14741497
PDF_A(I,J,L) , &
14751498
PDFITERS(I,J,L), &
1499+
#ifdef PDFDIAG
1500+
PDF_SIGW1(I,J,L), &
1501+
PDF_SIGW2(I,J,L), &
1502+
PDF_W1(I,J,L), &
1503+
PDF_W2(I,J,L), &
1504+
PDF_SIGTH1(I,J,L), &
1505+
PDF_SIGTH2(I,J,L), &
1506+
PDF_TH1(I,J,L), &
1507+
PDF_TH2(I,J,L), &
1508+
PDF_SIGQT1(I,J,L), &
1509+
PDF_SIGQT2(I,J,L), &
1510+
PDF_QT1(I,J,L), &
1511+
PDF_QT2(I,J,L), &
1512+
PDF_RQTTH(I,J,L), &
1513+
PDF_RWTH(I,J,L), &
1514+
PDF_RWQT(I,J,L), &
1515+
#endif
14761516
WTHV2(I,J,L) , &
14771517
WQL(I,J,L) , &
14781518
.false. , &

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_THOM_1M_InterfaceMod.F90‎

Lines changed: 43 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
! $Id$
22

33
#include "MAPL_Generic.h"
4+
!#define PDFDIAG 1
45

56
!=============================================================================
67
!BOP
@@ -353,6 +354,13 @@ subroutine THOM_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
353354
real, pointer, dimension(:,:,:) :: DBZ3D
354355
real, pointer, dimension(:,:,:) :: PTR3D
355356
real, pointer, dimension(:,: ) :: PTR2D
357+
#ifdef PDFDIAG
358+
real, pointer, dimension(:,:,:) :: PDF_W1, PDF_W2, PDF_SIGW1, PDF_SIGW2, &
359+
PDF_QT1, PDF_QT2, PDF_SIGQT1, PDF_SIGQT2, &
360+
PDF_TH1, PDF_TH2, PDF_SIGTH1, PDF_SIGTH2, &
361+
PDF_RQTTH, PDF_RWTH, PDF_RWQT
362+
#endif
363+
356364
! Thompson Pointers for inputs
357365
real, dimension(:,:,:), allocatable, target :: inputs
358366
real, dimension(:,:,:), pointer :: qv => null()
@@ -679,6 +687,24 @@ subroutine THOM_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
679687
DQSDT_macro=QSNOW
680688
DQGDT_macro=QGRAUPEL
681689

690+
#ifdef PDFDIAG
691+
call MAPL_GetPointer(EXPORT, PDF_W1, 'PDF_W1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
692+
call MAPL_GetPointer(EXPORT, PDF_W2, 'PDF_W2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
693+
call MAPL_GetPointer(EXPORT, PDF_SIGW1, 'PDF_SIGW1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
694+
call MAPL_GetPointer(EXPORT, PDF_SIGW2, 'PDF_SIGW2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
695+
call MAPL_GetPointer(EXPORT, PDF_QT1, 'PDF_QT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
696+
call MAPL_GetPointer(EXPORT, PDF_QT2, 'PDF_QT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
697+
call MAPL_GetPointer(EXPORT, PDF_SIGQT1, 'PDF_SIGQT1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
698+
call MAPL_GetPointer(EXPORT, PDF_SIGQT2, 'PDF_SIGQT2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
699+
call MAPL_GetPointer(EXPORT, PDF_TH1, 'PDF_TH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
700+
call MAPL_GetPointer(EXPORT, PDF_TH2, 'PDF_TH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
701+
call MAPL_GetPointer(EXPORT, PDF_SIGTH1, 'PDF_SIGTH1' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
702+
call MAPL_GetPointer(EXPORT, PDF_SIGTH2, 'PDF_SIGTH2' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
703+
call MAPL_GetPointer(EXPORT, PDF_RQTTH, 'PDF_RQTTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
704+
call MAPL_GetPointer(EXPORT, PDF_RWTH, 'PDF_RWTH' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
705+
call MAPL_GetPointer(EXPORT, PDF_RWQT, 'PDF_RWQT' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
706+
#endif
707+
682708
! Include shallow precip condensates if present
683709
call MAPL_GetPointer(EXPORT, PTR3D, 'SHLW_PRC3', ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS)
684710
if (associated(PTR3D)) then
@@ -751,6 +777,23 @@ subroutine THOM_1M_Run (GC, IMPORT, EXPORT, CLOCK, RC)
751777
SL3(I,J,L) , &
752778
PDF_A(I,J,L) , &
753779
PDFITERS(I,J,L), &
780+
#ifdef PDFDIAG
781+
PDF_SIGW1(I,J,L), &
782+
PDF_SIGW2(I,J,L), &
783+
PDF_W1(I,J,L), &
784+
PDF_W2(I,J,L), &
785+
PDF_SIGTH1(I,J,L), &
786+
PDF_SIGTH2(I,J,L), &
787+
PDF_TH1(I,J,L), &
788+
PDF_TH2(I,J,L), &
789+
PDF_SIGQT1(I,J,L), &
790+
PDF_SIGQT2(I,J,L), &
791+
PDF_QT1(I,J,L), &
792+
PDF_QT2(I,J,L), &
793+
PDF_RQTTH(I,J,L), &
794+
PDF_RWTH(I,J,L), &
795+
PDF_RWQT(I,J,L), &
796+
#endif
754797
WTHV2(I,J,L) , &
755798
WQL(I,J,L) , &
756799
.false. , &

0 commit comments

Comments
 (0)