Changeset 13538 for NEMO/trunk/src/SAS
- Timestamp:
- 2020-09-29T12:21:53+02:00 (4 years ago)
- Location:
- NEMO/trunk/src/SAS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
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.