Changeset 3901 for trunk/LMDZ.MARS/libf/phymars/cvmgt.F

Timestamp:

Aug 20, 2025, 4:25:12 PM (4 days ago)

Author:

emillour

Message:

Mars PCM:
Some code tidying:

• turn aeroptproperties, albedocaps, cvmgp and convadj into modules
• remove useless check in callradite
• clean module vlz_fi (remove obsolete #ifdef CRAY cpp alternatives)
• remove function cvmgp since it was only called under #ifdef CRAY in vlz_fi

EM

File:

• trunk/LMDZ.MARS/libf/phymars/cvmgt.F (modified) (2 diffs)

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

@@ -1 @@
-      FUNCTION cvmgt(x1,x2,l)
+      MODULE cvmgt_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
+      REAL FUNCTION cvmgt(x1,x2,l)
+      ! function which returns x1 if l == .true. , x2 otherwise
       IMPLICIT NONE
 
-      REAL x1,x2,cvmgt
-      LOGICAL l
+      REAL,INTENT(IN) :: x1,x2
+      LOGICAL,INTENT(IN) :: l
 
       IF(l) then 
@@ -11 +18 @@
       ENDIF
 
-      RETURN
-      END
+      END FUNCTION cvmgt
 C
+      END MODULE cvmgt_mod