Changeset 3577 for LMDZ6/trunk/libf/phylmd/cv30_routines.F90
- Timestamp:
- Oct 7, 2019, 3:30:19 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv30_routines.F90
r3531 r3577 3050 3050 ! variables pour tracer dans precip de l'AA et des mel 3051 3051 ! local variables: 3052 INTEGER i, j, k 3052 INTEGER i, j, k, nam1 3053 3053 REAL epm(nloc, na, na) 3054 3054 3055 nam1=na-1 ! Introduced because ep is not defined for j=na 3055 3056 ! variables d'Emanuel : du second indice au troisieme 3056 3057 ! ---> tab(i,k,j) -> de l origine k a l arrivee j … … 3082 3083 ! fraction deau condensee dans les melanges convertie en precip : epm 3083 3084 ! et eau condensée précipitée dans masse d'air saturé : l_m*dM_m/dzdz.dzdz 3084 DO j = 1, na 3085 DO j = 1, nam1 3085 3086 DO k = 1, j - 1 3086 3087 DO i = 1, ncum … … 3095 3096 END DO 3096 3097 3097 DO j = 1, na 3098 DO k = 1, na 3098 DO j = 1, nam1 3099 DO k = 1, nam1 3099 3100 DO i = 1, ncum 3100 3101 IF (k>=icb(i) .AND. k<=inb(i)) THEN … … 3106 3107 END DO 3107 3108 3108 DO j = 1, na 3109 DO j = 1, nam1 3109 3110 DO k = 1, j - 1 3110 3111 DO i = 1, ncum … … 3117 3118 3118 3119 ! matrices pour calculer la tendance des concentrations dans cvltr.F90 3119 DO j = 1, na 3120 DO k = 1, na 3120 DO j = 1, nam1 3121 DO k = 1, nam1 3121 3122 DO i = 1, ncum 3122 3123 da(i, j) = da(i, j) + (1.-sij(i,k,j))*ment(i, k, j) … … 3127 3128 END DO 3128 3129 3129 DO j = 1, na 3130 DO j = 1, nam1 3130 3131 DO k = 1, j - 1 3131 3132 DO i = 1, ncum
Note: See TracChangeset
for help on using the changeset viewer.