Changeset 4179 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/physiq_mod.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/physiq_mod.F90 (modified) (2 diffs)

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

@@ -1109 +1109 @@
     !     climatology and the daylight climatology
     INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
-    REAL, POINTER, SAVE :: press_cen_climoz(:) ! Pressure levels
-    REAL, POINTER, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
-    REAL, POINTER, SAVE :: time_climoz(:)      ! Time vector
+    REAL, allocatable, SAVE :: press_cen_climoz(:) ! Pressure levels
+    REAL, allocatable, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
+    REAL, allocatable, SAVE :: time_climoz(:)      ! Time vector
     CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
                                   = ["tro3         ","tro3_daylight"]
@@ -5351 +5351 @@
          IF (read_climoz >= 1) THEN
            IF (is_mpi_root) CALL nf95_close(ncid_climoz)
-            DEALLOCATE(press_edg_climoz) ! pointer
-            DEALLOCATE(press_cen_climoz) ! pointer
+            DEALLOCATE(press_edg_climoz)
+            DEALLOCATE(press_cen_climoz)
          ENDIF