Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/gfl_subs.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/gfl_subs.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/gfl_subs.F90

@@ -582 +582 @@
 
 !SUBROUTINE DEACT_CLOUD_GFL  ! commente par MPL 10.12.08 (et REACT_CLOUD_GFL)
-!
+
 !**** *DEACT_CLOUD_GFL* Deactivate prognostic cloud variables
-!
+
 !     ------------------------------------------------------------------
-!
+
 !INTEGER(KIND=JPIM) :: JGFL
 !REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!
+
 !#include "suslb.intfb.h"
-!
+
 !IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEACT_CLOUD_GFL',0,ZHOOK_HANDLE)
-!
+
 !IF (.NOT.L_CLD_DEACT .AND. &
 ! & (YL%LACTIVE .OR. YI%LACTIVE .OR. &
@@ -611 +611 @@
 !    IF (YA%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
 !    IF (YCPF%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
-!
+
 !    IF (YL%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
 !    IF (YI%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
@@ -618 +618 @@
 !    IF (YA%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
 !    IF (YCPF%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
-!
+
 !    CALL FALSIFY_GFLC(YL)
 !    CALL FALSIFY_GFLC(YI)
@@ -643 +643 @@
 ! ENDDO
 ! CALL SUSLB
-!
+
 ! L_CLD_DEACT=.TRUE.
 ! WRITE(NULOUT,*)' CLOUD FIELDS DE-ACTIVATAD, YGFL%NUMGPFLDS=', &
 ! & YGFL%NUMGPFLDS,' YGFL%NUMFLDS_SL1=', YGFL%NUMFLDS_SL1
 !ENDIF
-!
+
 !IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEACT_CLOUD_GFL',1,ZHOOK_HANDLE)
-!
+
 !END SUBROUTINE DEACT_CLOUD_GFL
-!
+
 !!=========================================================================
-!
+
 !SUBROUTINE REACT_CLOUD_GFL
 !!**** *REACT_CLOUD_GFL* Reactivate prognostic cloud variables
-!
+
 !INTEGER(KIND=JPIM) :: JGFL
 !REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -664 +664 @@
 !!     ------------------------------------------------------------------
 !IF (LHOOK) CALL DR_HOOK('GFL_SUBS:REACT_CLOUD_GFL',0,ZHOOK_HANDLE)
-!
+
 !IF (L_CLD_DEACT) THEN
 !  LLGPL = YL%LGP
@@ -673 +673 @@
 !  CALL COPY_GFLC_GFLC(YI,YI_SAVE)
 !  CALL COPY_GFLC_GFLC(YA,YA_SAVE)
-!
+
 !  IF (.NOT. LLGPL .AND. YL%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
 !  IF (.NOT. LLGPI .AND. YI%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
 !  IF (.NOT. LLGPA .AND. YA%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
-!
+
 !  YGFL%NUMFLDS_SL1 = 0
 !  DO JGFL=1,YGFL%NUMFLDS
@@ -688 +688 @@
 !  ENDDO
 !  CALL SUSLB
-!
+
 !  L_CLD_DEACT=.FALSE.
 !  WRITE(NULOUT,*)' CLOUD FIELDS RE-ACTIVATAD, YGFL%NUMGPFLDS=', &
 !  & YGFL%NUMGPFLDS,' YGFL%NUMFLDS_SL1=', YGFL%NUMFLDS_SL1
 !ENDIF
-!
+
 !IF (LHOOK) CALL DR_HOOK('GFL_SUBS:REACT_CLOUD_GFL',1,ZHOOK_HANDLE)
-!
+
 !!     ------------------------------------------------------------------
 !END SUBROUTINE REACT_CLOUD_GFL