Changeset 2197 for LMDZ5/trunk/libf/dyn3d_common/massbarxy.F

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/dyn3d_common/massbarxy.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/massbarxy.F

@@ -3 +3 @@
 !
       SUBROUTINE massbarxy(  masse, massebxy )
+      IMPLICIT NONE
 c
 c **********************************************************************
@@ -23 +24 @@
 c
        REAL  masse( ip1jmp1,llm ), massebxy( ip1jm,llm )
+       INTEGER ij,l
 c