Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/orografi_strato.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/orografi_strato.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/orografi_strato.f90

@@ +1 @@
+!$gpum horizontal klon nlon kfdia
+MODULE orografi_strato_mod
+  PRIVATE
+
+  PUBLIC drag_noro_strato, orodrag_strato, orosetup_strato, gwstress_strato, &
+       & lift_noro_strato, orolift_strato, sugwd_strato
+
+CONTAINS
+
 SUBROUTINE drag_noro_strato(partdrag, nlon, nlev, dtime, paprs, pplay, pmea, pstd, &
     psig, pgam, pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, pvlow, &
@@ -1936 +1945 @@
   RETURN
 END SUBROUTINE sugwd_strato
+
+END MODULE orografi_strato_mod