Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.F

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

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

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

@@ -126 +126 @@
 
 !        write(*,*)'T check'
-!     
+
 !        DO  ig = 1,knonv  
 !            DO  jk = 1,isnoSV(ig) !nsno       
@@ -132 +132 @@
 !                TsisSV(ig,jk) = TsisSV(ig,isnoSV(ig))
 !              ENDIF  
-!
+
 !              IF (TsisSV(ig,jk) <= 1.) THEN          !hj check
 !                TsisSV(ig,jk) = 273.15