Changeset 1952
- Timestamp:
- Jun 21, 2018, 1:00:16 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/comgeomfi_h.F90
r1770 r1952 4 4 implicit none 5 5 6 ! These arrays are allocated in phys_state_var_init7 ! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: long ! longitudes (rad)8 ! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: lati ! latitudes (rad)9 ! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: area ! mesh area (m2)10 ! REAL,SAVE :: totarea11 6 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sinlon 12 7 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: coslon … … 21 16 integer,intent(in) :: ngrid ! number of atmospheric columns 22 17 23 ! allocate(lati(ngrid))24 ! allocate(long(ngrid))25 ! allocate(area(ngrid))26 18 allocate(sinlat(ngrid)) 27 19 allocate(coslat(ngrid)) … … 48 40 INTEGER,INTENT(IN) :: ngrid ! number of atmospheric columns 49 41 REAL,INTENT(IN) :: plat(ngrid),plon(ngrid),parea(ngrid) 50 EXTERNAL SSUM51 REAL SSUM52 42 integer :: ig 53 43 54 ! fill "comgeomfi_h" data55 ! call SCOPY(ngrid,plon,1,long,1)56 ! call SCOPY(ngrid,plat,1,lati,1)57 ! call SCOPY(ngrid,parea,1,area,1)58 ! totarea=SSUM(ngrid,area,1)59 44 DO ig=1,ngrid 60 45 sinlat(ig)=sin(plat(ig))
Note: See TracChangeset
for help on using the changeset viewer.