Changeset 1987 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
- Timestamp:
- Feb 24, 2014, 4:05:47 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
r1907 r1987 80 80 ! include "mpif.h" 81 81 82 INTEGER longcles 83 PARAMETER ( longcles = 20 ) 84 REAL clesphy0( longcles ) 82 INTEGER,PARAMETER :: longcles = 20 83 REAL,INTENT(IN) :: clesphy0( longcles ) ! not used 84 REAL,INTENT(IN) :: time_0 ! not used 85 86 c dynamical variables: 87 REAL,INTENT(IN) :: ucov0(ijb_u:ije_u,llm) ! zonal covariant wind 88 REAL,INTENT(IN) :: vcov0(ijb_v:ije_v,llm) ! meridional covariant wind 89 REAL,INTENT(IN) :: teta0(ijb_u:ije_u,llm) ! potential temperature 90 REAL,INTENT(IN) :: q0(ijb_u:ije_u,llm,nqtot) ! advected tracers 91 REAL,INTENT(IN) :: ps0(ijb_u:ije_u) ! surface pressure (Pa) 92 REAL,INTENT(IN) :: masse0(ijb_u:ije_u,llm) ! air mass 93 REAL,INTENT(IN) :: phis0(ijb_u:ije_u) ! geopotentiat at the surface 85 94 86 95 real zqmin,zqmax 87 88 c variables dynamiques89 REAL :: vcov0(ijb_v:ije_v,llm),ucov0(ijb_u:ije_u,llm) ! vents covariants90 REAL :: teta0(ijb_u:ije_u,llm) ! temperature potentielle91 REAL :: q0(ijb_u:ije_u,llm,nqtot) ! champs advectes92 REAL :: ps0(ijb_u:ije_u) ! pression au sol93 REAL :: masse0(ijb_u:ije_u,llm) ! masse d'air94 REAL :: phis0(ijb_u:ije_u) ! geopotentiel au sol95 96 96 97 ! REAL,SAVE,ALLOCATABLE :: p (:,: ) ! pression aux interfac.des couches … … 133 134 REAL time 134 135 135 REAL SSUM 136 REAL time_0 136 REAL SSUM 137 137 ! REAL,SAVE,ALLOCATABLE :: finvmaold(:,:) 138 138 … … 670 670 671 671 IF( forward. OR . leapf ) THEN 672 673 672 ! Ehouarn: NB: fields sent to advtrac are those at the beginning of the time step 674 673 CALL caladvtrac_loc(q,pbaru,pbarv, 675 674 * p, masse, dq, teta, … … 680 679 ! enddo 681 680 682 c 681 ! Ehouarn: Storage of mass flux for off-line tracers... not implemented... 682 683 683 ENDIF ! of IF( forward. OR . leapf ) 684 684 … … 1140 1140 endif 1141 1141 c$OMP BARRIER 1142 CALL massdair_loc(p,masse) 1143 c$OMP BARRIER 1142 1144 1143 1145 cc$OMP END PARALLEL
Note: See TracChangeset
for help on using the changeset viewer.