Changeset 270 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/iostart.F90

Timestamp:

09/05/14 14:42:27 (10 years ago)

Author:

millour

Message:

Added features for the Saturn case:

• Added possibility to run without startfi or restartfi.nc files
• Added reference temperature "temp_profile.txt" profile to start from
• More XIOS outputs, and put them on "presnivs (pressure) vertical coordinate
• Added "-openmp-threadprivate compat" OpenMP option in Ada arch file

EM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/iostart.F90 (modified) (2 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/iostart.F90

@@ -44 +44 @@
 CONTAINS
 
-  SUBROUTINE open_startphy(filename)
+  SUBROUTINE open_startphy(filename,found)
   USE netcdf, only: NF90_OPEN, NF90_NOERR, NF90_NOWRITE, nf90_strerror
   USE mod_phys_lmdz_para, only: is_master, bcast
   IMPLICIT NONE
-    CHARACTER(LEN=*) :: filename
+    CHARACTER(LEN=*),INTENT(IN) :: filename
+    LOGICAL,INTENT(OUT),OPTIONAL   :: found 
     INTEGER          :: ierr
 
@@ -56 +57 @@
         write(*,*)'open_startphy: problem opening file '//trim(filename)
         write(*,*)trim(nf90_strerror(ierr))
-        CALL ABORT
+        !CALL ABORT
+        found=.false.
+      ELSE
+        found=.true.
       ENDIF
     ENDIF
     
     CALL bcast(nid_start) ! tell all procs about nid_start
+    if(present(found)) CALL bcast(found)
   
   END SUBROUTINE open_startphy