Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90

@@ -42 +42 @@
 !      adjustment is activated, to avoid "strairs shape effect" on profiles.
 !  * All the fields are regridded as a single multi-dimensional array, so it
-!    saves CPU time to call this procedure once for several NetCDF variables
+!    saves CPU time to CALL this procedure once for several NetCDF variables
 !    rather than several times, each time for a single NetCDF variable.
 !  * The input file pressure at tropopause can be (in decreasing priority):
@@ -91 +91 @@
   LOGICAL, SAVE :: lPrTfile                        !--- Tropopause pressure flag
   LOGICAL, SAVE :: lO3Tfile                        !--- Tropopause ozone flag
-  LOGICAL, SAVE :: lfirst=.TRUE.                   !--- First call flag
+  LOGICAL, SAVE :: lfirst=.TRUE.                   !--- First CALL flag
 !$OMP THREADPRIVATE(lfirst)
   REAL,    PARAMETER :: pTropUp=9.E+3 !--- Value  <  tropopause pressure (Pa)
@@ -482 +482 @@
   CALL nf95_inq_varid(fID, TRIM(var), vID)
   CALL nf95_inquire_variable(fID, vID, ndims=n_dim)
-  IF(n_dim==2) call nf95_get_var(fID,vID,v(1,:), start=[  1,irec])
-  IF(n_dim==3) call nf95_get_var(fID,vID,v(:,:), start=[1,1,irec])
+  IF(n_dim==2) CALL nf95_get_var(fID,vID,v(1,:), start=[  1,irec])
+  IF(n_dim==3) CALL nf95_get_var(fID,vID,v(:,:), start=[1,1,irec])
 
   !--- Flip latitudes: ascending in input file, descending in "rlatu".
@@ -513 +513 @@
     CALL nf95_inq_varid(fID, TRIM(nam(i)), vID)
     CALL nf95_inquire_variable(fID, vID, ndims=n_dim)
-    IF(n_dim==3) call nf95_get_var(fID,vID,v(1,:,:,i), start=[  1,1,irec])
-    IF(n_dim==4) call nf95_get_var(fID,vID,v(:,:,:,i), start=[1,1,1,irec])
+    IF(n_dim==3) CALL nf95_get_var(fID,vID,v(1,:,:,i), start=[  1,1,irec])
+    IF(n_dim==4) CALL nf95_get_var(fID,vID,v(:,:,:,i), start=[1,1,1,irec])
   END DO