Changeset 955 for trunk/LMDZ.GENERIC/libf

Timestamp:

May 10, 2013, 11:32:50 AM (12 years ago)

Author:

emillour

Message:

Generic GCM:

• moved the 'makbands' script from "grid" to (more appropriate) "phystd/bands" subdirectory, and consequently adapted the makegcm_* scripts

EM

Location:

trunk/LMDZ.GENERIC/libf

Files:

• grid/dimension/bands.2.4 (deleted)
• grid/dimension/bands.32.36 (deleted)
• grid/dimension/bands.38.36 (deleted)
• grid/dimension/bands.8.12 (deleted)
• grid/dimension/bands.8.7 (deleted)
• phystd/bands (added)
• phystd/bands/makbands (moved) (moved from trunk/LMDZ.GENERIC/libf/grid/dimension/makbands)
• phystd/physiq.F90 (modified) (1 diff)

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

@@ -529 +529 @@
          ice_update=.false.
          if(sourceevol)then
-            open(128,file='num_run',form='formatted')
+            open(128,file='num_run',form='formatted', &
+                     status="old",iostat=ierr)
+            if (ierr.ne.0) then
+              write(*,*) "physiq: Error! No num_run file!"
+              write(*,*) " (which is needed for sourceevol option)"
+              stop
+            endif
             read(128,*) num_run 
             close(128)