- Timestamp:
- 2019-10-03T14:13:02+02:00 (5 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS
- Files:
-
- 2 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS/nemogcm.F90
r10888 r11646 52 52 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 53 53 54 #if defined key_mpp_mpi 55 INCLUDE 'mpif.h' 56 #endif 54 57 !!---------------------------------------------------------------------- 55 58 !! NEMO/SAS 4.0 , NEMO Consortium (2018) … … 113 116 ! 114 117 DO WHILE( istp <= nitend .AND. nstop == 0 ) 118 #if defined key_mpp_mpi 119 ncom_stp = istp 120 IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 121 IF ( istp == nitend ) elapsed_time = MPI_Wtime() - elapsed_time 122 #endif 115 123 CALL stp 116 124 istp = istp + 1 … … 128 136 ! 129 137 DO WHILE( istp <= nitend .AND. nstop == 0 ) 138 #if defined key_mpp_mpi 139 ncom_stp = istp 140 IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 141 IF ( istp == nitend ) elapsed_time = MPI_Wtime() - elapsed_time 142 #endif 130 143 CALL stp ( istp ) 131 144 istp = istp + 1 -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS/sbcssm.F90
r10888 r11646 178 178 !!---------------------------------------------------------------------- 179 179 ! 180 IF( ln_rstart .AND. nn_components == jp_iam_sas ) RETURN 180 !EM disable reading if not restart 181 !EM IF( ln_rstart .AND. nn_components == jp_iam_sas ) RETURN 182 IF( nn_components == jp_iam_sas ) RETURN 181 183 ! 182 184 IF(lwp) THEN -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS/stpctl.F90
r10888 r11646 60 60 LOGICAL :: ll_wrtstp, ll_colruns, ll_wrtruns 61 61 CHARACTER(len=20) :: clname 62 CHARACTER(len=20) :: cfts_name, cfrs_name, cfrsnc_name 62 63 !!---------------------------------------------------------------------- 63 64 ! … … 70 71 WRITE(numout,*) '~~~~~~~' 71 72 ! ! open time.step file 72 IF( lwm ) CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 73 cfts_name='time.step' 74 cfrs_name='run.stat' 75 cfrsnc_name='run.stat.nc' 76 77 IF( TRIM(cxios_context) == 'sas' ) THEN 78 WRITE(cfts_name,'(A4,A9)') 'sas_', TRIM(cfts_name) 79 WRITE(cfrs_name,'(A4,A8)') 'sas_', TRIM(cfrs_name) 80 WRITE(cfrsnc_name,'(A4,A11)') 'sas_', TRIM(cfrsnc_name) 81 ENDIF 82 83 IF( lwm ) CALL ctl_opn( numstp, TRIM(cfts_name), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 73 84 ! ! open run.stat file(s) at start whatever 74 85 ! ! the value of sn_cfctl%ptimincr 75 86 IF( lwm .AND. ( ln_ctl .OR. sn_cfctl%l_runstat ) ) THEN 76 CALL ctl_opn( numrun, 'run.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )77 clname = 'run.stat.nc'87 CALL ctl_opn( numrun, TRIM(cfrs_name), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 88 clname = TRIM(cfrsnc_name) 78 89 IF( .NOT. Agrif_Root() ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 79 istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun )90 istatus = NF90_CREATE( TRIM(cfrsnc_name), NF90_CLOBBER, idrun ) 80 91 istatus = NF90_DEF_DIM( idrun, 'time' , NF90_UNLIMITED, idtime ) 81 92 istatus = NF90_DEF_VAR( idrun, 'vt_i_max' , NF90_DOUBLE, (/ idtime /), idssh )
Note: See TracChangeset
for help on using the changeset viewer.