Changeset 1912 for trunk/LMDZ.MARS/libf/phymars/orodrag_mod.F

Timestamp:

Apr 3, 2018, 8:13:24 AM (7 years ago)

Author:

emillour

Message:

Mars GCM:
Tidying the gravity wave routines by turning them into modules:
orodrag.F -> orodrag_mod.F : note that the declared size of pvar(), which is
used in call to gwstress was wrong.
calldrag_noro.F -> calldrag_noro_mod.F
drag_noro.F -> drag_noro_mod.F
gwstress.F -> gwstress_mod.F
EM

File:

• trunk/LMDZ.MARS/libf/phymars/orodrag_mod.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/orodrag.F) (5 diffs)

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

@@ +1 @@
+      MODULE orodrag_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE ORODRAG( klon,klev 
      I                 , KGWD, KGWDIM, KDX, KTEST
@@ -71 +77 @@
 C-----------------------------------------------------------------------
       use dimradmars_mod, only: ndlo2
-      USE comcstfi_h
+      USE gwstress_mod, ONLY: gwstress
+      USE comcstfi_h, ONLY: g, cpp
       implicit none
 C
@@ -79 +86 @@
       integer, save :: kfdia ! =NDLO2
 
-#include "yoegwd.h"
+      include "yoegwd.h"
 C-----------------------------------------------------------------------
 C
@@ -116 +123 @@
       integer ji,jk,jl,klevm1,ilevp1
 C      real gkwake
-      real ztmst,pvar,ztauf,zrtmst,zdelp,zb,zc,zbet
+      real ztmst,pvar(NDLO2,4),ztauf,zrtmst,zdelp,zb,zc,zbet
       real zconb,zabsv,zzd1,ratio,zust,zvst,zdis,ztemp
 C
@@ -283 +290 @@
 C
 C
-      RETURN
-      END
+
+      END SUBROUTINE ORODRAG
+      
+      END MODULE orodrag_mod