Changeset 3739 for trunk/LMDZ.MARS/libf/phymars/orodrag_mod.F90

Timestamp:

Apr 26, 2025, 8:20:13 PM (7 weeks ago)

Author:

emillour

Message:

Mars PCM:
Code tidying: put routines in modules, remove useless "return" statements, etc.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/orodrag_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/orodrag_mod.F90

@@ -39 +39 @@
       USE comcstfi_h, ONLY: g, cpp
       USE yoegwd_h, ONLY: gkwake
+      USE orosetup_mod, ONLY: orosetup
       
       implicit none
@@ -57 +58 @@
       REAL, intent(in):: pvar(ndomainsz)       ! Sub-grid scale standard deviation 
       REAL, intent(in):: psig(ndomainsz)       ! Sub-grid scale slope 
-      REAL, intent(in):: pgam(ndomainsz)       ! Sub-grid scale anisotropy
+      REAL, intent(inout):: pgam(ndomainsz)       ! Sub-grid scale anisotropy
       REAL, intent(in):: pthe(ndomainsz)       ! Sub-grid scale principal axes angle
       REAL, intent(in):: zgeom(ndomainsz,nlayer)     ! Geopotential height of full levels