Changeset 3213 for LMDZ6/branches/IPSLCM6.0.15/libf
- Timestamp:
- Feb 16, 2018, 1:18:16 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/tend_to_tke.F90
r3200 r3213 36 36 USE dimphy, ONLY: klon, klev 37 37 USE indice_sol_mod, ONLY: nbsrf 38 39 IMPLICIT NONE 38 40 #include "YOMCST.h" 39 41 … … 64 66 65 67 66 INTEGER i g,k,isrf ! indices68 INTEGER i,k,isrf ! indices 67 69 REAL masse(klon,klev) ! mass in the layers [kg/m2] 68 70 REAL unsmasse(klon,klev+1) ! linear mass in the layers [kg/m2] … … 120 122 121 123 122 DO isrf=1,n srf124 DO isrf=1,nbsrf 123 125 DO k=1,klev 124 126 DO i=1,klon
Note: See TracChangeset
for help on using the changeset viewer.