Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dmem/dissip_loc.F
- Timestamp:
- Mar 20, 2014, 10:57:19 AM (11 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1922-1927,1929-1933,1937-1939,1943-1997
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dmem/dissip_loc.F
r1910 r1999 1 ! 2 ! $Id: $ 3 ! 1 4 SUBROUTINE dissip_loc( vcov,ucov,teta,p, dv,du,dh ) 2 5 c 3 6 USE parallel_lmdz 4 7 USE write_field_loc 5 USE dissip_mod 8 USE dissip_mod, ONLY: dissip_allocate 6 9 IMPLICIT NONE 7 10 … … 35 38 c ---------- 36 39 37 REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm) 38 REAL teta(ijb_u:ije_u,llm) 39 REAL p( ijb_u:ije_u,llmp1 ) 40 REAL dv(ijb_v:ije_v,llm),du(ijb_u:ije_u,llm),dh(ijb_u:ije_u,llm) 40 REAL,INTENT(IN) :: vcov(ijb_v:ije_v,llm) ! covariant meridional wind 41 REAL,INTENT(IN) :: ucov(ijb_u:ije_u,llm) ! covariant zonal wind 42 REAL,INTENT(IN) :: teta(ijb_u:ije_u,llm) ! potential temperature 43 REAL,INTENT(IN) :: p(ijb_u:ije_u,llmp1) ! interlayer pressure 44 ! tendencies (.../s) on covariant winds and potential temperature 45 REAL,INTENT(OUT) :: dv(ijb_v:ije_v,llm) 46 REAL,INTENT(OUT) :: du(ijb_u:ije_u,llm) 47 REAL,INTENT(OUT) :: dh(ijb_u:ije_u,llm) 41 48 42 49 c Local:
Note: See TracChangeset
for help on using the changeset viewer.