Changeset 9434
- Timestamp:
- 2018-03-27T10:32:34+02:00 (6 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 20 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r6486 r9434 177 177 !open output file 178 178 IF( lwm ) THEN 179 CALL ctl_opn( numdct_vol, 'volume_transport', 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )180 CALL ctl_opn( numdct_heat, 'heat_transport' , 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )181 CALL ctl_opn( numdct_salt, 'salt_transport' , 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )179 CALL ctl_opn( numdct_vol, 'volume_transport', 'NEW', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE. ) 180 CALL ctl_opn( numdct_heat, 'heat_transport' , 'NEW', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE. ) 181 CALL ctl_opn( numdct_salt, 'salt_transport' , 'NEW', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE. ) 182 182 ENDIF 183 183 … … 336 336 !open input file 337 337 !--------------- 338 CALL ctl_opn( numdct_in, 'section_ijglobal.diadct', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )338 CALL ctl_opn( numdct_in, 'section_ijglobal.diadct', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', 'READ', -1, numout, .FALSE. ) 339 339 340 340 !--------------- -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
r8280 r9434 133 133 irecl4 = MAX(jpi*jpj*sp , 84+(18+jpk)*sp + 8*jpnij*sp ) 134 134 WRITE(clname,'(a,a,i3.3)') TRIM(cd_name),'.',narea 135 CALL ctl_opn(inum, clname,'UNKNOWN','UNFORMATTED','DIRECT', irecl4,numout,lwp)135 CALL ctl_opn(inum, clname,'UNKNOWN','UNFORMATTED','DIRECT', 'WRITE', irecl4,numout,lwp) 136 136 WRITE(inum,REC=1 ) clver, cd_text, irecl4, & 137 137 & jpi,jpj, klev, 1 , 1 , & … … 168 168 !! Standard dimgproc (1 file per variable, all procs. write to this file ) 169 169 !! * Open file 170 CALL ctl_opn(inum, cd_name,'UNKNOWN','UNFORMATTED','DIRECT', irecl4,numout,lwp)170 CALL ctl_opn(inum, cd_name,'UNKNOWN','UNFORMATTED','DIRECT', 'WRITE', irecl4,numout,lwp) 171 171 172 172 !! * Write header on record #1 -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90
r6486 r9434 401 401 IF ( kt == nitend .AND. cp_cfg == "orca" .AND. lwp ) THEN 402 402 403 CALL ctl_opn( inum, 'STRAIT.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )403 CALL ctl_opn( inum, 'STRAIT.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, narea ) 404 404 WRITE(inum,*) 405 405 WRITE(inum,*) 'Net freshwater budget ' -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r8400 r9434 530 530 IF(lwp) THEN 531 531 CALL dia_nam( clhstnam, nwrite,' ' ) 532 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )532 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, narea ) 533 533 WRITE(inum,*) clhstnam 534 534 CLOSE(inum) -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90
r6486 r9434 75 75 ! open the restart file 76 76 !---------------------- 77 CALL ctl_opn( inum, 'restart_float', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )77 CALL ctl_opn( inum, 'restart_float', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp ) 78 78 79 79 ! read of the restart file … … 145 145 ! we get the init values 146 146 !----------------------- 147 CALL ctl_opn( inum , clname1, 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )147 CALL ctl_opn( inum , clname1, 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp ) 148 148 DO jfl = kfl_start,kfl_end 149 149 READ(inum,*) flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash … … 322 322 jfl1=0 323 323 ierr=0 324 CALL ctl_opn( inum, clname2, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .TRUE., 1 )324 CALL ctl_opn( inum, clname2, 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', 1, numout, .TRUE., 1 ) 325 325 DO WHILE (ierr .EQ. 0) 326 326 jfl1=jfl1+1 … … 337 337 338 338 ! we get the init values 339 CALL ctl_opn( inum, clname2, 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .TRUE., 1 )339 CALL ctl_opn( inum, clname2, 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', 1, numout, .TRUE., 1 ) 340 340 DO jfl = kfl_start, kfl_end 341 341 READ(inum,*) tpifl(jfl),tpjfl(jfl),tpkfl(jfl),itrash, itrash -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90
r6486 r9434 96 96 inum=0 97 97 IF( lwp )THEN 98 CALL ctl_opn( inum, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )98 CALL ctl_opn( inum, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE. ) 99 99 REWIND inum 100 100 ENDIF -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90
r6486 r9434 189 189 !---------------------- 190 190 IF( kt == nn_it000 ) THEN 191 CALL ctl_opn( numflo, 'trajec_float', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )191 CALL ctl_opn( numflo, 'trajec_float', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE. ) 192 192 irecflo = NINT( (nitend-nn_it000) / FLOAT(nn_writefl) ) 193 193 WRITE(numflo,*)cexper,no,irecflo,jpnfl,nn_writefl -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r6823 r9434 78 78 ! ! note that we choose to do this on all processors since we cannot 79 79 ! ! predict where icebergs will be ahead of time 80 CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )80 CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, narea ) 81 81 82 82 ! set parameters (mostly from namelist) -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90
r6486 r9434 332 332 DO jn = sind, eind 333 333 WRITE(clfile_out,FMT=clb_name) jn-1 334 CALL ctl_opn( numid(jn -narea + 1), clfile_out, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. )334 CALL ctl_opn( numid(jn -narea + 1), clfile_out, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', 1, numout, .FALSE. ) 335 335 j_id = numid(jn -narea + 1) 336 336 WRITE(j_id,*) -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8356 r9434 320 320 321 321 IF( mynode == 0 ) THEN 322 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )322 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, 6, .FALSE. , 1 ) 323 323 WRITE(kumond, nammpp) 324 324 ENDIF … … 3716 3716 function_value = 0 3717 3717 IF( .FALSE. ) ldtxt(:) = 'never done' 3718 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )3718 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, 6, .FALSE. , 1 ) 3719 3719 END FUNCTION mynode 3720 3720 … … 3946 3946 3947 3947 3948 SUBROUTINE ctl_opn( knum, cdfile, cdstat, cdform, cdacce, klengh, kout, ldwp, karea )3948 SUBROUTINE ctl_opn( knum, cdfile, cdstat, cdform, cdacce, cdact, klengh, kout, ldwp, karea ) 3949 3949 !!---------------------------------------------------------------------- 3950 3950 !! *** ROUTINE ctl_opn *** … … 3963 3963 LOGICAL , INTENT(in ) :: ldwp ! boolean term for print 3964 3964 INTEGER, OPTIONAL, INTENT(in ) :: karea ! proc number 3965 CHARACTER(len=*) , INTENT(in ) :: cdact ! action READ/WRITE/READWRITE default READWRITE 3965 3966 !! 3966 3967 CHARACTER(len=80) :: clfile … … 3983 3984 iost=0 3984 3985 IF( cdacce(1:6) == 'DIRECT' ) THEN 3985 OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat, RECL=klengh, ERR=100, IOSTAT=iost ) 3986 OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat, ACTION=TRIM(cdact), & 3987 & RECL=klengh, ERR=100, IOSTAT=iost ) 3986 3988 ELSE 3987 OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 3989 OPEN( UNIT=knum, FILE=clfile, FORM=cdform, ACCESS=cdacce, STATUS=cdstat, ACTION=TRIM(cdact), & 3990 & ERR=100, IOSTAT=iost ) 3988 3991 ENDIF 3989 3992 IF( iost == 0 ) THEN … … 3994 3997 WRITE(kout,*) ' form = ', cdform 3995 3998 WRITE(kout,*) ' access = ', cdacce 3999 WRITE(kout,*) ' action = ', cdact 3996 4000 WRITE(kout,*) 3997 4001 ENDIF … … 4007 4011 WRITE(kout,*) ' form = ', cdform 4008 4012 WRITE(kout,*) ' access = ', cdacce 4013 WRITE(kout,*) ' action = ', cdact 4009 4014 WRITE(kout,*) ' iostat = ', iost 4010 4015 WRITE(kout,*) ' we stop. verify the file ' -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90
r6498 r9434 365 365 ! Save processor layout in layout.dat file 366 366 IF (lwp) THEN 367 CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )367 CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE., narea ) 368 368 WRITE(inum,'(a)') ' jpnij jpi jpj jpk jpiglo jpjglo' 369 369 WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r6498 r9434 523 523 ! Save processor layout in ascii file 524 524 IF (lwp) THEN 525 CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )525 CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE., narea ) 526 526 WRITE(inum,'(a)') ' jpnij jpi jpj jpk jpiglo jpjglo' 527 527 WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90
r6487 r9434 118 118 IF( kt == nit000 ) THEN ! initialisation 119 119 ! ! Read the corrective factor on precipitations (fwfold) 120 CALL ctl_opn( inum, 'EMPave_old.dat', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )120 CALL ctl_opn( inum, 'EMPave_old.dat', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, .FALSE. ) 121 121 READ ( inum, "(24X,I8,2ES24.16)" ) iyear, a_fwb_b, a_fwb 122 122 CLOSE( inum ) … … 147 147 ! 148 148 IF( kt == nitend .AND. lwp ) THEN ! save fwfold value in a file 149 CALL ctl_opn( inum, 'EMPave.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )149 CALL ctl_opn( inum, 'EMPave.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, .FALSE., narea ) 150 150 WRITE( inum, "(24X,I8,2ES24.16)" ) nyear, a_fwb_b, a_fwb 151 151 CLOSE( inum ) -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r6498 r9434 268 268 ! 269 269 ! Open the reference and configuration namelist files and namelist output file 270 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )271 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )272 IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )270 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp ) 271 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp ) 272 IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, 1 ) 273 273 274 274 CALL ice_run ! set some ice run parameters -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r6498 r9434 60 60 61 61 IF(lwp) THEN !* open elliptic solver statistics file (only on the printing processors) 62 CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )62 CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, narea ) 63 63 ENDIF 64 64 -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
r6487 r9434 850 850 851 851 IF( nn_ctls == 1 ) THEN 852 CALL ctl_opn( inum, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, lwp )852 CALL ctl_opn( inum, 'ctlsurf_idx', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp ) 853 853 READ ( inum, * ) nbol 854 854 CLOSE( inum ) -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r9321 r9434 255 255 ! 256 256 ! ! Open reference namelist and configuration namelist files 257 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )258 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )257 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, 6, .FALSE. ) 258 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, 6, .FALSE. ) 259 259 ! 260 260 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark … … 374 374 IF(lwp) THEN ! open listing units 375 375 ! 376 CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea )376 CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, 6, .FALSE., narea ) 377 377 ! 378 378 WRITE(numout,*) -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r9276 r9434 74 74 clfname = 'time.step' 75 75 ENDIF 76 CALL ctl_opn( numstp, TRIM(clfname), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )76 CALL ctl_opn( numstp, TRIM(clfname), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, narea ) 77 77 ENDIF 78 78 … … 227 227 ELSE !* ssh statistics (and others...) 228 228 IF( kt == nit000 .AND. lwp ) THEN ! open ssh statistics file (put in solver.stat file) 229 CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )229 CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout, lwp, narea ) 230 230 ENDIF 231 231 ! -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/timing.F90
r6486 r9434 199 199 200 200 IF( ln_onefile ) THEN 201 IF( lwp) CALL ctl_opn( numtime, 'timing.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout,.TRUE., narea )201 IF( lwp) CALL ctl_opn( numtime, 'timing.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout,.TRUE., narea ) 202 202 lwriter = lwp 203 203 ELSE 204 CALL ctl_opn( numtime, 'timing.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout,.FALSE., narea )204 CALL ctl_opn( numtime, 'timing.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 'WRITE', -1, numout,.FALSE., narea ) 205 205 lwriter = .TRUE. 206 206 ENDIF -
branches/UKMO/dev_r5518_GO6_namelist_read/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
r6486 r9434 224 224 ENDIF 225 225 ! 226 CALL ctl_opn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )226 CALL ctl_opn( numlight, 'kRGB61.txt', 'OLD', 'FORMATTED', 'SEQUENTIAL', 'READ', -1, numout, lwp ) 227 227 DO jc = 1, 61 228 228 READ(numlight,*) zchl, ( prgb(jb,jc), jb = 1, 3 )
Note: See TracChangeset
for help on using the changeset viewer.