Changeset 4076 for LMDZ6/trunk/libf
- Timestamp:
- Feb 4, 2022, 9:37:44 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv3_routines.F90
r3670 r4076 3972 3972 DO il = 1, ncum 3973 3973 IF (j<=inb(il)) THEN 3974 dn_to(il,i) = dn_to(il,i) + ment(il,j,i) 3974 !! dn_to(il,i) = dn_to(il,i) + ment(il,j,i) !jyg,20220202 3975 dn_to(il,i) = dn_to(il,i) - ment(il,j,i) 3975 3976 ENDIF 3976 3977 ENDDO … … 3982 3983 DO il = 1, ncum 3983 3984 IF (i<=inb(il)) THEN 3984 dn_from(il,i) = dn_from(il,i) + ment(il,i,j) 3985 !! dn_from(il,i) = dn_from(il,i) + ment(il,i,j) !jyg,20220202 3986 dn_from(il,i) = dn_from(il,i) - ment(il,i,j) 3985 3987 ENDIF 3986 3988 ENDDO … … 3994 3996 DO i = nl-1, 1, -1 3995 3997 DO il = 1, ncum 3996 dnwd(il,i) = max(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i)) 3998 !! dnwd(il,i) = max(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i)) !jyg,20220202 3999 dnwd(il,i) = min(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i)) 3997 4000 ENDDO 3998 4001 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.