Changeset 4495

Timestamp:

Apr 4, 2023, 10:12:21 PM (21 months ago)

Author:

Laurent Fairhead

Message:

The routine is out of sync with the one in phylmd and some declarations of interface varaibles have changed
LF

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1219 +1219 @@
     !     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"]