Changeset 2197 for LMDZ5/trunk/libf/phylmd/ini_wake.F90

Timestamp:

Feb 9, 2015, 8:13:05 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Added 'implicit none' statements and proper variable definitions where they were missing.
EM

File:

• LMDZ5/trunk/libf/phylmd/ini_wake.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/ini_wake.F90

@@ -4 +4 @@
 SUBROUTINE ini_wake(wape, fip, it_wape_prescr, wape_prescr, fip_prescr, &
     alp_bl_prescr, ale_bl_prescr)
+  IMPLICIT NONE
   ! **************************************************************
   ! *
@@ -39 +40 @@
   include 'iniprint.h'
   ! declarations
+  REAL wape, fip, wape_prescr, fip_prescr
+  INTEGER it_wape_prescr
   REAL ale_bl_prescr
   REAL alp_bl_prescr
   REAL it
+  REAL w,f,alebl,alpbl
 
   ! FH A mettre si besoin dans physiq.def