Changeset 3168 for LMDZ6/trunk/libf

Timestamp:

Jan 30, 2018, 2:08:24 PM (7 years ago)

Author:

dcugnet

Message:

Fix to restore compilation with gfortran + single length for strings.

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -43 +43 @@
            ,'degsC         ','degrees_C     ','degreesC      ','degs_C        '&
            ,'degree_Celsius','celsius       '], &
-  Perc(2)=['%              ','percent       '], &
-  Frac(2)=['1.0            ','1             ']
+  Perc(2) =['%             ','percent       '], &
+  Frac(2) =['1.0           ','1             ']
 
 CONTAINS
@@ -92 +92 @@
   include "comgeom2.h"
 
-!--- INPUT NETCDF FILES NAMES --------------------------------------------------
-  CHARACTER(LEN=20) :: icefile, sstfile, dumstr, fnam
-  CHARACTER(LEN=10) :: varname
+!--- INPUT NETCDF FILES AND VARIABLES NAMES ------------------------------------
+  CHARACTER(LEN=ns) :: icefile, sstfile, fnam, varname
 
 !--- OUTPUT VARIABLES FOR NETCDF FILE ------------------------------------------
-  REAL               :: fi_ice(klon), verif(klon)
+  REAL               :: fi_ice(klon)
   REAL, POINTER      :: phy_rug(:,:)=>NULL(), phy_ice(:,:)=>NULL()
   REAL, POINTER      :: phy_sst(:,:)=>NULL(), phy_alb(:,:)=>NULL()
@@ -104 +103 @@
 
 !--- VARIABLES FOR OUTPUT FILE WRITING -----------------------------------------
-  INTEGER :: ierr, nid, ndim, ntim, k, dims(2), ix_sic, ix_sst
+  INTEGER :: nid, ndim, ntim, k, dims(2), ix_sic, ix_sst
   INTEGER :: id_tim,  id_SST,  id_BILS, id_RUG, id_ALB
   INTEGER :: id_FOCE, id_FSIC, id_FTER, id_FLIC, varid_longitude, varid_latitude
   INTEGER :: NF90_FORMAT
   INTEGER :: ndays                   !--- Depending on the output calendar
-  CHARACTER(LEN=256) :: str
+  CHARACTER(LEN=ns) :: str
 
 !--- INITIALIZATIONS -----------------------------------------------------------
@@ -342 +341 @@
 ! Arguments:
   CHARACTER(LEN=*),  INTENT(IN)     :: fnam     ! NetCDF file name
-  CHARACTER(LEN=10), INTENT(IN)     :: varname  ! NetCDF variable name
-  CHARACTER(LEN=3),  INTENT(IN)     :: mode     ! RUG, SIC, SST or ALB
+  CHARACTER(LEN=*),  INTENT(IN)     :: varname  ! NetCDF variable name
+  CHARACTER(LEN=*),  INTENT(IN)     :: mode     ! RUG, SIC, SST or ALB
   INTEGER,           INTENT(IN)     :: ndays    ! current year number of days
   REAL,    POINTER,  DIMENSION(:, :) :: champo  ! output field = f(t)
@@ -352 +351 @@
 !--- NetCDF
   INTEGER           :: ncid, varid        ! NetCDF identifiers
-  CHARACTER(LEN=30) :: dnam               ! dimension name
+  CHARACTER(LEN=ns) :: dnam               ! dimension name
 !--- dimensions
   INTEGER           :: dids(4)            ! NetCDF dimensions identifiers
@@ -366 +365 @@
   REAL, ALLOCATABLE :: champan(:,:,:)
 !--- input files
-  CHARACTER(LEN=20) :: fnam_m, fnam_p     ! previous/next files names
-  CHARACTER(LEN=20) :: cal_in             ! calendar
-  CHARACTER(LEN=20) :: units              ! attribute "units" in sic/sst file
+  CHARACTER(LEN=ns) :: fnam_m, fnam_p     ! previous/next files names
+  CHARACTER(LEN=ns) :: cal_in             ! calendar
+  CHARACTER(LEN=ns) :: units              ! attribute "units" in sic/sst file
   INTEGER           :: ndays_in           ! number of days
   REAL              :: value              ! mean/max value near equator
 !--- misc
-  INTEGER           :: i, j, k, l, ll     ! loop counters
+  INTEGER           :: i, j, k, l         ! loop counters
   REAL, ALLOCATABLE :: work(:,:)          ! used for extrapolation
-  CHARACTER(LEN=128):: title, mess        ! for messages
+  CHARACTER(LEN=ns) :: title, mess        ! for messages
   LOGICAL           :: is_bcs             ! flag for BCS data
   LOGICAL           :: extrp              ! flag for extrapolation
+  LOGICAL           :: ll
   REAL              :: chmin, chmax, timeday, al
   INTEGER ierr, idx
@@ -666 +666 @@
 !-------------------------------------------------------------------------------
 ! Local variables:
-  CHARACTER(LEN=256) :: modname="start_init_orog0"
+  CHARACTER(LEN=ns)  :: modname="start_init_orog0"
   INTEGER            :: fid, llm_tmp,ttm_tmp, iml,jml, iml_rel,jml_rel, itau(1)
   REAL               :: lev(1), date, dt, deg2rad