Juan 22/11/2023:modeln.f90, declaration of (G)GNVS_NO_0 miss placed

src/MNH/modeln.f90

@@ -572,7 +572,7 @@ LOGICAL :: GCLOUD_ONLY              ! conditionnal radiation computations for
                                 !      the only cloudy columns
 REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZWETDEPAER
 
-
+LOGICAL :: GNVS_NO_0
 !
 TYPE(TFILEDATA),POINTER :: TZBAKFILE, TZOUTFILE
 ! TYPE(TFILEDATA),SAVE    :: TZDIACFILE
@@ -582,7 +582,7 @@ TYPE(TFILEDATA),POINTER :: TZBAKFILE, TZOUTFILE
 REAL :: VSIGQSAT
 VSIGQSAT = VSIGQSAT_MODD
 #endif
-LOGICAL :: NVS_NO_0
+
 !-------------------------------------------------------------------------------
 
 TZBAKFILE=> NULL()
@@ -643,7 +643,7 @@ IMI = GET_CURRENT_MODEL_INDEX()
 !
 CALL UPDATE_NSV(IMI)
 !
-NVS_NO_0 = ( NSV /= 0 )
+GNVS_NO_0 = ( NSV /= 0 )
 !
 !*       1.1   RECOVER THE LOGICAL UNIT NUMBER FOR THE OUTPUT PRINTS
 !
@@ -697,8 +697,8 @@ IF (KTCOUNT == 1) THEN
   IF (SIZE(XRTKES,1) /= 0) CALL ADD3DFIELD_ll( TFIELDS_ll, XRTKES, 'MODEL_n::XRTKES' )
   CALL ADD4DFIELD_ll( TFIELDS_ll, XRRS     (:,:,:,1:NRR), 'MODEL_n::XRRS' )
   CALL ADD4DFIELD_ll( TFIELDS_ll, XRRS_CLD (:,:,:,1:NRR), 'MODEL_n::XRRS_CLD' )
-  IF ( NVS_NO_0 ) CALL ADD4DFIELD_ll( TFIELDS_ll, XRSVS    (:,:,:,1:NSV), 'MODEL_n::XRSVS')
-  IF ( NVS_NO_0 ) CALL ADD4DFIELD_ll( TFIELDS_ll, XRSVS_CLD(:,:,:,1:NSV), 'MODEL_n::XRSVS_CLD')
+  IF ( GNVS_NO_0 ) CALL ADD4DFIELD_ll( TFIELDS_ll, XRSVS    (:,:,:,1:NSV), 'MODEL_n::XRSVS')
+  IF ( GNVS_NO_0 ) CALL ADD4DFIELD_ll( TFIELDS_ll, XRSVS_CLD(:,:,:,1:NSV), 'MODEL_n::XRSVS_CLD')
   IF (SIZE(XSRCT,1) /= 0) CALL ADD3DFIELD_ll( TFIELDS_ll, XSRCT, 'MODEL_n::XSRCT' )
   !
   IF ((LNUMDIFU .OR. LNUMDIFTH .OR. LNUMDIFSV) ) THEN
@@ -1982,7 +1982,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
   XRTHS_CLD(:, :, : )    = XRTHS(:, :, : )
   XRRS_CLD (:, :, :, : ) = XRRS(:, :, :, : )
 !$acc end kernels
-  IF ( NVS_NO_0 ) THEN
+  IF ( GNVS_NO_0 ) THEN
 !$acc kernels present_cr(XRSVS_CLD)
      XRSVS_CLD(:, :, :, : ) = XRSVS(:, :, :, : )
 !$acc end kernels
@@ -2063,7 +2063,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
   XRTHS_CLD(:, :, : )    = XRTHS(:, :, : )    - XRTHS_CLD(:, :, : )
   XRRS_CLD (:, :, :, : ) = XRRS (:, :, :, : ) - XRRS_CLD (:, :, :, : )
 !$acc end kernels
-  IF ( NVS_NO_0 ) THEN
+  IF ( GNVS_NO_0 ) THEN
 !$acc kernels present_cr(XRSVS_CLD)  
      XRSVS_CLD(:, :, :, : ) = XRSVS(:, :, :, : ) - XRSVS_CLD(:, :, :, : )
 !$acc end kernels