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

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/parasol.F90 (modified) (1 diff)

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

@@ -118 +118 @@
     DO it=1,PARASOL_NREFL
        DO ny=1,PARASOL_NTAU-1
-          WHERE (tautot_S(1:npoints) .ge. PARASOL_TAU(ny).and. &
+          WHERE (tautot_S(1:npoints) .ge. PARASOL_TAU(ny).AND. &
                  tautot_S(1:npoints) .le. PARASOL_TAU(ny+1))
              rlumA_mod(1:npoints,it) = aA(it,ny)*tautot_S(1:npoints) + bA(it,ny)