Changeset 1952

Timestamp:

Jun 21, 2018, 1:00:16 AM (6 years ago)

Author:

aslmd

Message:

cosmetic: remove useless comments and one external function in comgeomfi_h.F90

File:

• trunk/LMDZ.MARS/libf/phymars/comgeomfi_h.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/comgeomfi_h.F90

@@ -4 +4 @@
        implicit none
 
-       ! These arrays are allocated in phys_state_var_init
-!       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: long ! longitudes (rad)
-!       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: lati ! latitudes (rad)
-!       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: area ! mesh area (m2)
-!       REAL,SAVE :: totarea
        REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sinlon 
        REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: coslon
@@ -21 +16 @@
          integer,intent(in) :: ngrid ! number of atmospheric columns
 
-!        allocate(lati(ngrid))
-!         allocate(long(ngrid))
-!         allocate(area(ngrid))
          allocate(sinlat(ngrid))
          allocate(coslat(ngrid))
@@ -48 +40 @@
          INTEGER,INTENT(IN) :: ngrid ! number of atmospheric columns
          REAL,INTENT(IN) :: plat(ngrid),plon(ngrid),parea(ngrid)
-         EXTERNAL SSUM
-         REAL SSUM
          integer :: ig
 
-         ! fill "comgeomfi_h" data
-!         call SCOPY(ngrid,plon,1,long,1)
-!         call SCOPY(ngrid,plat,1,lati,1)
-!         call SCOPY(ngrid,parea,1,area,1)
-!         totarea=SSUM(ngrid,area,1)
          DO ig=1,ngrid
             sinlat(ig)=sin(plat(ig))