Changeset 5768 for LMDZ6/trunk

Timestamp:

Jul 10, 2025, 12:20:16 PM (3 weeks ago)

Author:

rkazeroni

Message:

forgot to delete phylmdiso/lmdz_fake_call.f90 together with phylmd/lmdz_fake_call.f90

Location:

LMDZ6/trunk/libf

Files:

• phylmd/orografi.f90 (modified) (2 diffs)
• phylmd/orografi_strato.f90 (modified) (2 diffs)
• phylmd/physiq_mod.F90 (modified) (1 diff)
• phylmdiso/lmdz_fake_call.f90 (deleted)

LMDZ6/trunk/libf/phylmd/orografi.f90

@@ -1 +1 @@
 
 ! $Id$
+!$gpum horizontal klon nlon kfdia
+MODULE orografi_mod
+  PRIVATE
+
+  PUBLIC drag_noro, orodrag, orosetup, gwstress, gwprofil, lift_noro, orolift, sugwd
+
+CONTAINS
 
 SUBROUTINE drag_noro(nlon, nlev, dtime, paprs, pplay, pmea, pstd, psig, pgam, &
@@ -1683 +1690 @@
   RETURN
 END SUBROUTINE sugwd
+
+END MODULE orografi_mod

LMDZ6/trunk/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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -49 +49 @@
     USE netcdf, only: nf90_fill_real     ! IM for NMC files
     USE open_climoz_m, only: open_climoz ! ozone climatology from a file
+    USE orografi_mod, ONLY: drag_noro, lift_noro, sugwd
+    USE orografi_strato_mod, ONLY: drag_noro_strato, lift_noro_strato, sugwd_strato
     USE ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
     USE pbl_surface_mod, ONLY : pbl_surface