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

Timestamp:

Aug 20, 2025, 4:25:12 PM (3 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/convadj.F (modified) (2 diffs)

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

@@ +1 @@
+      module convadj_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine convadj(ngrid,nlay,nq,ptimestep,
      &                   pplay,pplev,ppopsk,lmax_th,
@@ -381 +387 @@
      &                             -zq(1:ngrid,1:nlay,1:nq))/ptimestep
 
-      end
+      end subroutine convadj
       
+      end module convadj_mod