Changeset 5581

Timestamp:

Mar 19, 2025, 4:45:30 PM (5 months ago)

Author:

aborella

Message:

Corrections again

File:

• LMDZ6/branches/contrails/libf/phylmd/lmdz_lscp_precip.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/lmdz_lscp_precip.f90

@@ -1090 +1090 @@
       IF ( (snowclr_tmp(i) .GT. 0.) .AND. (precipfracclr_tmp(i) .GT. eps) &
               .AND. (rainclr_tmp(i) .LT. eps) ) THEN
+        dsnowres = snowclr_tmp(i) * EXP( - snowclr_tmp(i) / precipfracclr_tmp(i) &
+                                           / snow_thresh_resuspension )
         IF ( dsnowres .GT. 0. ) THEN
-          dsnowres = snowclr_tmp(i) * EXP( - snowclr_tmp(i) / precipfracclr_tmp(i) &
-                                             / snow_thresh_resuspension )
           dqsres(i) = dqsres(i) - dsnowres / dhum_to_dflux(i)
           !--The following line determines the in-cloud ice water content of the newly formed cloud
@@ -1111 +1111 @@
       IF ( (snowcld_tmp(i) .GT. 0.) .AND. (precipfraccld_tmp(i) .GT. 0.) &
               .AND. (raincld_tmp(i) .LT. eps) ) THEN
+        dsnowres = snowcld_tmp(i) * EXP( - snowcld_tmp(i) / precipfraccld_tmp(i) &
+                                           / snow_thresh_resuspension )
         IF ( dsnowres .GT. 0. ) THEN
-          dsnowres = snowcld_tmp(i) * EXP( - snowcld_tmp(i) / precipfraccld_tmp(i) &
-                                             / snow_thresh_resuspension )
           dqsres(i) = dqsres(i) - dsnowres / dhum_to_dflux(i)
           !--Add tendencies