Changeset 9434 for branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2018-03-27T10:32:34+02:00 (6 years ago)

Author:

andmirek

Message:

#2067 add atribute for file opening

File:

• branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (7 diffs)

branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -320 +320 @@
 
       IF( mynode == 0 ) THEN
-         CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
+         CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, 6, .FALSE. , 1 )
          WRITE(kumond, nammpp)      
       ENDIF
@@ -3716 +3716 @@
       function_value = 0
       IF( .FALSE. )   ldtxt(:) = 'never done'
-      CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
+      CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, 6, .FALSE. , 1 )
    END FUNCTION mynode
 
@@ -3946 +3946 @@
 
 
-   SUBROUTINE ctl_opn( knum, cdfile, cdstat, cdform, cdacce, klengh, kout, ldwp, karea )
+   SUBROUTINE ctl_opn( knum, cdfile, cdstat, cdform, cdacce, cdact, klengh, kout, ldwp, karea )
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE ctl_opn  ***
@@ -3963 +3963 @@
       LOGICAL          , INTENT(in   ) ::   ldwp      ! boolean term for print
       INTEGER, OPTIONAL, INTENT(in   ) ::   karea     ! proc number
+      CHARACTER(len=*) , INTENT(in   ) ::   cdact     ! action READ/WRITE/READWRITE default READWRITE
       !!
       CHARACTER(len=80) ::   clfile
@@ -3983 +3984 @@
       iost=0
       IF( cdacce(1:6) == 'DIRECT' )  THEN
-         OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat, RECL=klengh, ERR=100, IOSTAT=iost )
+         OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat, ACTION=TRIM(cdact), &
+     &                                                              RECL=klengh, ERR=100, IOSTAT=iost )
       ELSE
-         OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat             , ERR=100, IOSTAT=iost )
+         OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat, ACTION=TRIM(cdact), &
+     &                                                                           ERR=100, IOSTAT=iost )
       ENDIF
       IF( iost == 0 ) THEN
@@ -3994 +3997 @@
             WRITE(kout,*) '     form   = ', cdform
             WRITE(kout,*) '     access = ', cdacce
+            WRITE(kout,*) '     action = ', cdact
             WRITE(kout,*)
          ENDIF
@@ -4007 +4011 @@
             WRITE(kout,*) '           form   = ', cdform
             WRITE(kout,*) '           access = ', cdacce
+            WRITE(kout,*) '           action = ', cdact
             WRITE(kout,*) '           iostat = ', iost
             WRITE(kout,*) '           we stop. verify the file '