Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.f90

Timestamp:

Jul 24, 2024, 1:17:08 PM (2 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.f90

@@ -265 +265 @@
     IRs__D(ig) = dIRsdT(ig)* TsisSV(ig, isl) * 0.75                  !:
   END DO
-  ! !hj
+  !hj
   !!-----------------------------------------------------------------------
   !! 3)
@@ -370 +370 @@
       zx_qs = r2es * FOEEW(Tsf_SV(ig), zdelta) / ps__SV(ig)
       zx_qs = MIN(0.5, zx_qs)
-      ! !write(*,*)'zcor',retv*zx_qs
+      !write(*,*)'zcor',retv*zx_qs
       zcor = 1. / (1. - retv * zx_qs)
       zx_qs = zx_qs * zcor