Changeset 13538
- Timestamp:
- 2020-09-29T12:21:53+02:00 (4 years ago)
- Location:
- NEMO/trunk/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/timing.F90
r12489 r13538 213 213 214 214 215 SUBROUTINE timing_init 215 SUBROUTINE timing_init( clname ) 216 216 !!---------------------------------------------------------------------- 217 217 !! *** ROUTINE timing_init *** … … 221 221 REAL(wp) :: zdum 222 222 LOGICAL :: ll_f 223 223 CHARACTER(len=*), INTENT(in), OPTIONAL :: clname 224 CHARACTER(len=20) :: cln 225 226 IF( PRESENT(clname) ) THEN ; cln = clname 227 ELSE ; cln = 'timing.output' 228 ENDIF 229 224 230 IF( ln_onefile ) THEN 225 IF( lwp) CALL ctl_opn( numtime, 'timing.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout,.TRUE., narea )231 IF( lwp) CALL ctl_opn( numtime, cln, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout,.TRUE., narea ) 226 232 lwriter = lwp 227 233 ELSE 228 CALL ctl_opn( numtime, 'timing.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout,.FALSE., narea )234 CALL ctl_opn( numtime, cln, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout,.FALSE., narea ) 229 235 lwriter = .TRUE. 230 236 ENDIF -
NEMO/trunk/src/SAS/nemogcm.F90
r13472 r13538 355 355 ! 356 356 ! ! General initialization 357 IF( ln_timing ) CALL timing_init ! timing357 IF( ln_timing ) CALL timing_init ( 'timing_sas.output' ) 358 358 IF( ln_timing ) CALL timing_start( 'nemo_init') 359 359 -
NEMO/trunk/src/SAS/stpctl.F90
r13458 r13538 21 21 USE ice , ONLY : vt_i, u_ice, tm_i 22 22 USE phycst , ONLY : rt0 23 USE sbc_oce , ONLY : lk_oasis 23 24 ! 24 25 USE diawri ! Standard run outputs (dia_wri_state routine) … … 85 86 ENDIF 86 87 ! ! open time.step ascii file, done only by 1st subdomain 87 IF( lwm ) CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 88 IF( lk_oasis ) THEN ; clname = 'time_sas.step' 89 ELSE ; clname = 'time.step' 90 ENDIF 91 IF( lwm ) CALL ctl_opn( numstp, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 88 92 ! 89 93 IF( ll_wrtruns ) THEN 94 IF( lk_oasis ) THEN ; clname = 'run_sas.stat' 95 ELSE ; clname = 'run.stat' 96 ENDIF 90 97 ! ! open run.stat ascii file, done only by 1st subdomain 91 CALL ctl_opn( numrun, 'run.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )98 CALL ctl_opn( numrun, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 92 99 ! ! open run.stat.nc netcdf file, done only by 1st subdomain 93 clname = 'run.stat.nc'100 clname = clname//'.nc' 94 101 IF( .NOT. Agrif_Root() ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 95 102 istatus = NF90_CREATE( TRIM(clname), NF90_CLOBBER, nrunid )
Note: See TracChangeset
for help on using the changeset viewer.