Changeset 10927 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS
- Timestamp:
- 2019-05-03T17:13:09+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS/nemogcm.F90
r10922 r10927 32 32 USE bdyini ! open boundary cond. setting (bdy_init routine). mandatory for sea-ice 33 33 USE bdydta ! open boundary cond. setting (bdy_dta_init routine). mandatory for sea-ice 34 USE diu_layers ! diurnal bulk SST and coolskin 35 USE step_diu ! diurnal bulk SST timestepping (called from here if run offline) 34 36 ! 35 37 USE lib_mpp ! distributed memory computing … … 51 53 52 54 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 55 56 #if defined key_mpp_mpi 57 INCLUDE 'mpif.h' 58 #endif 53 59 54 60 !!---------------------------------------------------------------------- … … 128 134 ! 129 135 DO WHILE( istp <= nitend .AND. nstop == 0 ) 136 #if defined key_mpp_mpi 137 ncom_stp = istp 138 IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 139 IF ( istp == nitend ) elapsed_time = MPI_Wtime() - elapsed_time 140 #endif 130 141 CALL stp ( istp ) 131 142 istp = istp + 1 … … 169 180 #endif 170 181 ! 182 IF(lwm) THEN 183 IF( nstop == 0 ) THEN ; STOP 0 184 ELSE ; STOP 999 185 ENDIF 186 ENDIF 187 ! 171 188 END SUBROUTINE nemo_gcm 172 189 … … 180 197 INTEGER :: ji ! dummy loop indices 181 198 INTEGER :: ios, ilocal_comm ! local integers 182 CHARACTER(len=120), DIMENSION( 30) :: cltxt, cltxt2, clnam199 CHARACTER(len=120), DIMENSION(60) :: cltxt, cltxt2, clnam 183 200 CHARACTER(len=80) :: clname 184 201 !!
Note: See TracChangeset
for help on using the changeset viewer.