Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_check.F90

Timestamp:

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

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_check.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_check.F90

@@ -48 +48 @@
     if (allocated(var)) then
 
-      if (present(i1) .and. present(i2)) then
+      if (present(i1) .AND. present(i2)) then
         varmin = minval(var(i1:i2))
         varmax = maxval(var(i1:i2))
@@ -62 +62 @@
         is_bad = .true.
         if (do_fix) then
-          if (present(i1) .and. present(i2)) then
+          if (present(i1) .AND. present(i2)) then
             var(i1:i2) = max(boundmin, min(boundmax, var(i1:i2)))
           else
@@ -105 +105 @@
     if (allocated(var)) then
 
-      if (present(i1) .and. present(i2)) then
+      if (present(i1) .AND. present(i2)) then
         ii1 = i1
         ii2 = i2
@@ -112 +112 @@
         ii2 = ubound(var,1)
       end if
-      if (present(j1) .and. present(j2)) then
+      if (present(j1) .AND. present(j2)) then
         jj1 = j1
         jj2 = j2
@@ -168 +168 @@
     if (allocated(var)) then
 
-      if (present(i1) .and. present(i2)) then
+      if (present(i1) .AND. present(i2)) then
         ii1 = i1
         ii2 = i2
@@ -175 +175 @@
         ii2 = ubound(var,1)
       end if
-      if (present(j1) .and. present(j2)) then
+      if (present(j1) .AND. present(j2)) then
         jj1 = j1
         jj2 = j2
@@ -182 +182 @@
         jj2 = ubound(var,2)
       end if
-      if (present(k1) .and. present(k2)) then
+      if (present(k1) .AND. present(k2)) then
         kk1 = k1
         kk2 = k2