Changeset 3592

Timestamp:

Jan 21, 2025, 4:06:15 PM (5 weeks ago)

Author:

debatzbr

Message:

Add cooling in callcorrk

Location:

trunk/LMDZ.PLUTO/libf/phypluto

Files:

• callcorrk.F90 (modified) (1 diff)
• inifis_mod.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90

@@ -1107 +1107 @@
         end do
         ! adding c2h2 if cooling active
-        ! dtlw(ig,l)=dtlw(ig,l)+dtlw_hcn_c2h2(ig,l)
+        dtlw(ig,l)=dtlw(ig,l)+dtlw_hcn_c2h2(ig,l)
 
         !SW

trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

@@ -1297 +1297 @@
      endif
      if ((callmufi).and.(haze)) then
-       call abort_physic(rname, 'if haze are on, microphysics should be desactivated!', 1)
+       call abort_physic(rname, 'if haze are on, microphysics should be deactivated!', 1)
      endif
      if ((haze).and.(naerkind.gt.1)) then
@@ -1306 +1306 @@
      endif
      if (.not.(callmufi.or.haze).and.(optichaze)) then
-      call abort_physic(rname, 'if microphysics and haze are off, optichaze must be desactivated!', 1)
+      call abort_physic(rname, 'if microphysics and haze are off, optichaze must be deactivated!', 1)
      endif
      if ((callmufi.and.call_haze_prod_pCH4).and..not.(methane)) then