- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r10248 r10251 17 17 USE dom_oce ! ocean space and time domain variables 18 18 USE sol_oce ! ocean space and time domain variables 19 USE sbc_oce ! surface boundary conditions variables20 19 USE in_out_manager ! I/O manager 21 20 USE lbclnk ! ocean lateral boundary conditions (or mpp link) … … 23 22 USE dynspg_oce ! pressure gradient schemes 24 23 USE c1d ! 1D vertical configuration 25 26 24 27 25 IMPLICIT NONE … … 54 52 INTEGER, INTENT( inout ) :: kindic ! indicator of solver convergence 55 53 !! 56 CHARACTER(len = 32) :: clfname ! time stepping output file name57 54 INTEGER :: ji, jj, jk ! dummy loop indices 58 55 INTEGER :: ii, ij, ik ! temporary integers … … 66 63 WRITE(numout,*) 'stp_ctl : time-stepping control' 67 64 WRITE(numout,*) '~~~~~~~' 68 ! open time.step file with special treatment for SAS 69 IF ( nn_components == jp_iam_sas ) THEN 70 clfname = 'time.step.sas' 71 ELSE 72 clfname = 'time.step' 73 ENDIF 74 CALL ctl_opn( numstp, TRIM(clfname), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 65 ! open time.step file 66 CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 75 67 ENDIF 76 68
Note: See TracChangeset
for help on using the changeset viewer.