Changeset 4179 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/open_climoz_m.F90

Timestamp:

Jun 18, 2022, 1:32:25 AM (2 years ago)

Author:

lguez

Message:

Use an external updated NetCDF95 library

Remove NetCDF95 from source files. We want to use an up-to-date
NetCDF95 library to read a NetCDF file containing groups, for aerosol
optical properties. It seems complicated to keep the NetCDF95 library
inside LMDZ because:

• NetCDF95 now also needs a C compiler. I do not know how to make this work with FCM.

• NetCDF95 cannot be compiled with the -r8 option: some specific procedures in a generic interface become identical.

• Secondarily, we would have to change the names of files to adhere to the LMDZ standard. We are not glad to do that every time we update.

For now, we can compile using the options -include and -link of
makelmdz_fcm.

As we use an updated NetCDF95 library, we have to update some of the
calls in LMDZ. Those are the calls to nf95_inquire_variable and
nf95_gw_var which used to take a pointer argument and now take an
allocatable argument.

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/open_climoz_m.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/open_climoz_m.F90

@@ -27 +27 @@
 ! Arguments (OpenMP shared):
   INTEGER, INTENT(OUT):: ncid      !--- "climoz_LMDZ.nc" identifier
-  REAL, POINTER :: press_in_cen(:) !--- at cells centers
-  REAL, POINTER :: press_in_edg(:) !--- at the interfaces (pressure intervals)
-  REAL, POINTER :: time_in(:)      !--- records times, in days since Jan. 1st
+  REAL, allocatable, intent(out):: press_in_cen(:) !--- at cells centers
+  REAL, allocatable, INTENT(OUT):: press_in_edg(:) !--- at the interfaces (pressure intervals)
+  REAL, allocatable, intent(out):: time_in(:)      !--- records times, in days since Jan. 1st
   LOGICAL, INTENT(IN) :: daily     !--- daily files (calendar dependent days nb)
   LOGICAL, INTENT(IN) :: adjust    !--- tropopause adjustement required