Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/prec_scops.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (10 days ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/prec_scops.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/prec_scops.F90

@@ -200 +200 @@
           endif
         enddo ! loop over ncol
-        if ((flag_ls .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE
+        if ((flag_ls .eq. 0) .AND. (ilev .lt. nlev)) then ! possibility THREE
         DO ibox=1,ncol
         if (frac_out(j,ibox,ilev+1) .eq. 1) then 
@@ -236 +236 @@
         endif
        enddo ! loop over ncol
-        if ((flag_cv .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE
+        if ((flag_cv .eq. 0) .AND. (ilev .lt. nlev)) then ! possibility THREE
         DO ibox=1,ncol
         if (frac_out(j,ibox,ilev+1) .eq. 2) then