Changeset 1225 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/calfis.F

Timestamp:

Aug 7, 2009, 6:29:23 PM (15 years ago)

Author:

lguez

Message:

Added some "intent" attributes in declarations.

In "phyredem", "dtime" is not declared. It is not in any included
file. Probably accepted by compilers as an intrinsic non-standard
function. Removed this element of "tab_cntrl".

Added some "only" clauses in "use" statements.

If the ozone field is read from a file, it is now updated every
360th of the length of the current year, regardless of that length.

In "physiq", "omega" was output before it was defined. Moved the
output instruction after the definition.

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3d/calfis.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/calfis.F

@@ -170 +170 @@
       SAVE firstcal,debut
 !      REAL rdayvrai
-      REAL :: jD_cur, jH_cur
+      REAL, intent(in):: jD_cur, jH_cur
 c
 c-----------------------------------------------------------------------