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

Timestamp:

Jul 25, 2024, 5:47:25 PM (6 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

Files:

• calfis.f90 (modified) (1 diff)
• gr_dyn_fi.f90 (modified) (1 diff)
• grid_atob_m.f90 (modified) (1 diff)
• lmdz_calfis_loc.F90 (modified) (1 diff)
• phylmd/callphysiq_mod.F90 (modified) (1 diff)
• phylmd/ce0l.F90 (modified) (1 diff)
• phylmd/etat0dyn_netcdf.F90 (modified) (2 diffs)
• phylmd/limit_netcdf.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.f90

@@ -37 +37 @@
   USE lmdz_ssum_scopy, ONLY: scopy, ssum
 
+
   IMPLICIT NONE
   !=======================================================================

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/gr_dyn_fi.f90

@@ -3 +3 @@
 SUBROUTINE gr_dyn_fi(nfield, im, jm, ngrid, pdyn, pfi)
   USE lmdz_ssum_scopy, ONLY: scopy
+
 
   IMPLICIT NONE

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/grid_atob_m.f90

@@ -209 +209 @@
 ! Purpose: Compute rugosity due to orography by using standard dev in a 1x1 cell
 !-------------------------------------------------------------------------------
+
   IMPLICIT NONE
 !-------------------------------------------------------------------------------

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/lmdz_calfis_loc.F90

@@ -52 +52 @@
     USE lmdz_iniprint, ONLY: lunout, prt_level
     USE lmdz_ssum_scopy, ONLY: ssum
+
 
 

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
       !===============================================================================