Changeset 588 for trunk/LMDZ.GENERIC/libf/phystd/def_var.F90

Timestamp:

Mar 19, 2012, 11:27:18 AM (13 years ago)

Author:

emillour

Message:

Generic GCM:
Some cleanup and bug fixing:

• "cloudfrac" was not well written to restartfi (wrong size).
• missing save attribute for "reffrad" in physiq.F90.
• cleanup recomputation of surface pressure in newstart and change loop order in interp_horiz (which "fixes" an odd behaviour which fills some arrays with zeros, but only when using some versions of ifort!)

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/def_var.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/def_var.F90

@@ -27 +27 @@
 ierr=NF_REDEF(nid)
 
-print*,'in def_var.F90, dimids='
-print*,dimids
+!print*,'in def_var.F90, dimids='
+!print*,dimids
 
 ! 2. Define the variable