Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Timestamp:

Aug 2, 2024, 2:12:03 PM (5 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Files:

• etat0phys_netcdf.F90 (modified) (2 diffs)
• iniphysiq_mod.F90 (modified) (1 diff)
• test_disvert_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -538 +538 @@
     coslat0 = 0.5
     phiso = phis
-    do j = 2, jmp1 - 1
+    DO j = 2, jmp1 - 1
       PRINT*, 'avant if ', cos(rlatu(j)), coslat0
       IF (cos(rlatu(j))<coslat0) THEN
@@ -544 +544 @@
         ifiltre = (coslat0 / cos(rlatu(j)) - 1.) / 2.
         wwf = 0.
-        do i = 1, ifiltre
+        DO i = 1, ifiltre
           wwf(i) = 1.
         enddo
         wwf(ifiltre + 1) = (coslat0 / cos(rlatu(j)) - 1.) / 2. - ifiltre
-        do i = 1, imp1 - 1
+        DO i = 1, imp1 - 1
           IF (masque(i, j)>0.9) THEN
             ssz = phis(i, j)
-            do ifi = 1, ifiltre + 1
+            DO ifi = 1, ifiltre + 1
               ii = i + ifi
               IF (ii>imp1 - 1) ii = ii - imp1 + 1

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -102 +102 @@
 
     !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
-    !   Copy all threadprivate variables in temps_mod
+    !    Copy all threadprivate variables in temps_mod
     !$OMP PARALLEL DEFAULT(SHARED) COPYIN(annee_ref,day_ini,day_ref,start_time)
 

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/test_disvert_m.F90

@@ -44 +44 @@
     IF (any(p(:, :llm) <= p_lay .OR. p_lay <= p(:, 2:))) THEN
        ! List details and stop:
-       do l = 1, llm
-          do i = 1, ngrid
+       DO l = 1, llm
+          DO i = 1, ngrid
              IF (p(i, l) <= p_lay(i, l)) THEN
                 print 1000, "ps = ", ps(i) / 100., "hPa, p(level ",  l, &