Changeset 4166 for LMDZ6/branches/Portage_acc/libf/phylmd/ajsec.F90

Timestamp:

May 27, 2022, 5:45:46 PM (2 years ago)

Author:

Ehouarn Millour

Message:

Update driver to test repeated calling of physics.
Add some intent() to ajsec.
And !$acc contructs for physiq arguments.
EM

File:

• LMDZ6/branches/Portage_acc/libf/phylmd/ajsec.F90 (modified) (1 diff)

LMDZ6/branches/Portage_acc/libf/phylmd/ajsec.F90

@@ -15 +15 @@
   ! ======================================================================
   include "YOMCST.h"
-  REAL paprs(klon, klev+1), pplay(klon, klev)
-  REAL t(klon, klev), q(klon, klev)
-  REAL d_t(klon, klev), d_q(klon, klev)
-
-  INTEGER limbas(klon), limhau ! les couches a ajuster
+  REAL,INTENT(IN) :: paprs(klon, klev+1), pplay(klon, klev)
+  REAL,INTENT(IN) :: t(klon, klev), q(klon, klev)
+  REAL,INTENT(OUT) :: d_t(klon, klev), d_q(klon, klev)
+
+  INTEGER,INTENT(IN) :: limbas(klon)
+  INTEGER :: limhau ! les couches a ajuster
 
   LOGICAL mixq