Changeset 5091 for LMDZ6/branches/Amaury_dev/libf/filtrez/filtreg.F

Timestamp:

Jul 20, 2024, 11:17:09 PM (4 months ago)

Author:

abarral

Message:

Move lmdz_netcdf_format.F90 -> lmdz_cppkeys_wrapper.F90 to handle other CPP keys
Replace all (except wrapper) use of CPP_PHYS by fortran logical
Refactor makelmdz_fcm (put blocks into functions, use modern bash)

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/filtreg.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/filtreg.F

@@ -181 +181 @@
          END DO
          
-         IF( hemisph. EQ. 1 )      THEN
-            
-            IF( ifiltre. EQ. -2 )   THEN
+         IF( hemisph == 1 )      THEN
+            
+            IF( ifiltre == -2 )   THEN
                
                DO j = jdfil,jffil
@@ -229 +229 @@
          ELSE
             
-            IF( ifiltre. EQ. -2 )   THEN
+            IF( ifiltre == -2 )   THEN
                
                DO j = jdfil,jffil