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

Timestamp:

Jul 25, 2024, 5:47:25 PM (4 months ago)

Author:

abarral

Message:

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Files:

• callphysiq_mod.F90 (modified) (1 diff)
• ce0l.F90 (modified) (1 diff)
• etat0dyn_netcdf.F90 (modified) (2 diffs)
• limit_netcdf.f90 (modified) (1 diff)

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

@@ -23 +23 @@
   USE physiq_mod, ONLY: physiq
   USE lmdz_xios, ONLY: xios_set_current_context, xios_get_current_context, xios_context
+
+
   IMPLICIT NONE
 

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

@@ -46 +46 @@
   USE lmdz_mpi
   USE lmdz_iniprint, ONLY: lunout, prt_level
+
 
   IMPLICIT NONE

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

@@ -204 +204 @@
   SUBROUTINE startget_dyn3d(var, lon_in, lat_in, pls, workvar, &
           champ, lon_in2, lat_in2)
-    !-------------------------------------------------------------------------------
+
+
     IMPLICIT NONE
     !===============================================================================
@@ -396 +397 @@
     USE lmdz_libmath, ONLY: minmax
 
+
     IMPLICIT NONE
     !-------------------------------------------------------------------------------

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/limit_netcdf.f90

@@ -653 +653 @@
 
     SUBROUTINE start_init_orog0(lon_in, lat_in, phis, masque)
-
-      !-------------------------------------------------------------------------------
       USE grid_noro_m, ONLY: grid_noro0
+
+
       IMPLICIT NONE
       !===============================================================================