Changeset 3242 for trunk/LMDZ.COMMON/libf

Timestamp:

Feb 28, 2024, 12:26:25 PM (10 months ago)

Author:

emillour

Message:

Common physics:
Undo previous commit: revert geometry_mod to previous state.
EM

File:

• trunk/LMDZ.COMMON/libf/phy_common/geometry_mod.F90 (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/phy_common/geometry_mod.F90

@@ -36 +36 @@
 !$OMP THREADPRIVATE(cell_area_for_lonlat_outputs)
 
-  REAL,SAVE,ALLOCATABLE :: real_area(:) ! real area of the cell (m2)
-                                        ! multiplied by klon at poles
-  !$OMP THREADPRIVATE(real_area)
-
   INTEGER,SAVE,ALLOCATABLE :: ind_cell_glo(:)      ! global index of a local cell
 !$OMP THREADPRIVATE(ind_cell_glo)
@@ -51 +47 @@
   USE nrtype, ONLY : PI
   IMPLICIT NONE
-  include "dimensions.h"
     INTEGER,INTENT(IN) :: klon ! number of columns for this MPI/OpenMP domain
     REAL,INTENT(IN) :: longitude_(klon)
@@ -69 +64 @@
     ALLOCATE(boundslat(klon,nvertex))
     ALLOCATE(cell_area(klon))
-    ALLOCATE(real_area(klon))
     IF (PRESENT(ind_cell_glo_)) ALLOCATE(ind_cell_glo(klon))
     IF (PRESENT(dx_)) ALLOCATE(dx(klon))
@@ -81 +75 @@
     boundslat(:,:) = boundslat_(:,:)
     cell_area(:) = cell_area_(:)
-
-    real_area(2:klon-1)=cell_area(2:klon-1)
-    real_area(1)=cell_area(1)*iim
-    real_area(klon)=cell_area(klon)*iim
-
     IF (PRESENT(ind_cell_glo_)) ind_cell_glo(:) = ind_cell_glo_(:)
     IF (PRESENT(dx_)) dx(:) = dx_(:)