Changeset 1228 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd

Timestamp:

Apr 17, 2014, 1:33:48 PM (11 years ago)

Author:

aslmd

Message:

MESOSCALE. changed the way Titus cap is prescribed. this is done by titus.def to allow for old callphys.def to be still valid

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/inifis.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/inifis.F

@@ -504 +504 @@
          endif
 
-         READ(99,*)
-         READ(99,*)
-
-         !! prescribed crocus line for caps
-         READ(99,fmt='(a)') ch1
-         READ(99,*,iostat=ierr) tituscap
-         if (ierr.ne.0) then
-           write(*,*) 'no titus cap requested. set it to false'
-           tituscap = .false.
-         endif 
-         WRITE(*,8000) ch1,tituscap
-
          PRINT*,'--------------------------------------------'
          PRINT*
@@ -525 +513 @@
       ENDIF
       CLOSE(99)
+
+      !!-----------------------------------------
+      !! titus cap
+      OPEN(99,file='titus.def',status='old',form='formatted'
+     .     ,iostat=ierr)
+      IF(ierr.EQ.0) THEN
+         READ(99,*,iostat=ierr) tituscap
+      ELSE
+         write(*,*) 'no titus.def files. assuming no Titus cap.'
+         tituscap = .false.
+      ENDIF
+      write(*,*) 'Titus cap is: ',tituscap
+      CLOSE(99)
+      !!-----------------------------------------
+
 
 8000  FORMAT(t5,a12,l8)