Changeset 3740 for trunk/LMDZ.MARS/libf/phymars/swrayleigh.F

Timestamp:

Apr 27, 2025, 4:19:12 PM (2 months ago)

Author:

emillour

Message:

Mars PCM:
Code tidying; removed unused mufract.F (mucorr.F does the job); turned
ambiguously named sig.F to sig_h2o.F90 and make it a module.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/swrayleigh.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/swrayleigh.F

@@ +1 @@
+      MODULE swrayleigh_mod
+
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE swrayleigh(kdlon,knu,ppsol,prmu,prayl)
-       USE comcstfi_h                                                   
+
        IMPLICIT NONE
 c=======================================================================
@@ -31 +37 @@
 c    Input/Output
 c    ------------
-      INTEGER kdlon, knu
+      INTEGER,INTENT(IN) :: kdlon, knu
 
-      real ppsol(kdlon),prmu(kdlon),prayl(kdlon)
+      real,intent(in) :: ppsol(kdlon),prmu(kdlon)
+      real,intent(out) :: prayl(kdlon)
 c
 c    Local variables :
@@ -83 +90 @@
       END DO
 
+      END SUBROUTINE swrayleigh
 
-      return
-      end 
-
+      END MODULE swrayleigh_mod