Changeset 1567 for trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
- Timestamp:
- 2009-07-31T16:39:55+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r1528 r1567 7 7 !!---------------------------------------------------------------------- 8 8 9 SUBROUTINE dia_wri (kt , kindic)9 SUBROUTINE dia_wri (kt) 10 10 !!---------------------------------------------------------------------- 11 11 !! *** routine dia_wri *** … … 21 21 !! If 'key_diainstant' is defined, no mean values are computed and the 22 22 !! instantaneous fields are dump. 23 !! kindic is 0 or >0 in normal condition. When < 0 it indicates an error24 !! condition and instantaneous file output is forced.25 23 !! Each processor creates its own file with its local data 26 24 !! Merging all the files is performed off line by a dedicated program … … 78 76 79 77 !! * Arguments 80 INTEGER ,INTENT(in) :: kt , kindic78 INTEGER ,INTENT(in) :: kt 81 79 82 80 !! * local declarations … … 197 195 198 196 IF( ( MOD (kt-nit000+1,nwrite) == 0 ) & 199 & .OR. kindic < 0 & 200 & .OR. ( kt == 1 .AND. kindic > 0) ) THEN 197 & .OR. ( kt == 1 .AND. ninist ==1 ) ) THEN 201 198 ! it is time to make a dump on file 202 199 ! compute average … … 237 234 ! IF (abs(adatrj-iwrite*rwrite) < zdtj/2. & 238 235 IF ( ( MOD (kt-nit000+1,nwrite) == 0 ) & 239 & .OR. kindic < 0 & 240 & .OR. ( kt == 1 .AND. kindic > 0) ) THEN 236 & .OR. ( kt == 1 .AND. ninist == 1 ) ) THEN 241 237 ! 242 238 ! transfer wp arrays to sp arrays for dimg files … … 274 270 ! 275 271 IF( ( MOD (kt-nit000+1,nwrite) == 0 ) & 276 & .OR. kindic < 0 & 277 & .OR. ( kt == 1 .AND. kindic > 0) ) THEN 272 & .OR. ( kt == 1 .AND. ninist == 1 ) ) THEN 278 273 279 274 IF( lwp) WRITE(numout,*)'Days since the begining of the run :',adatrj … … 283 278 WRITE(clname,9000) TRIM(cexper),'U',iyear,imon,iday 284 279 cltext=TRIM(cexper)//' U(m/s) '//TRIM(clmode) 285 IF ( kindic < 0 ) cltext=TRIM(cexper)//' U(m/s) instantaneous (explosion)'286 280 ! 287 281 IF( ll_dia_inst) THEN … … 289 283 290 284 ELSE 291 IF( kindic == -3 ) THEN 292 ! ... in case of explosion on umax, dump instantateous u field instead of mean. 293 CALL dia_wri_dimg(clname, cltext, un, jpk, 'T') 294 ELSE 295 CALL dia_wri_dimg(clname, cltext, um, jpk, 'T') 296 ENDIF 285 CALL dia_wri_dimg(clname, cltext, um, jpk, 'T') 297 286 ENDIF 298 287 … … 396 385 397 386 END SUBROUTINE dia_wri 398 399 SUBROUTINE dia_wri_state ( cdfile_name, kt )400 !!-------------------------------------------------------------------401 !! *** ROUTINE dia_wri_state ***402 !!403 !! ** Purpose : Dummy routine for compatibility with IOIPSL output404 !!405 !! ** History :406 !! 9.O ! 03-06 (J.M. Molines ) dimgout407 !!--------------------------------------------------------------------408 INTEGER , INTENT(in) :: kt ! ocean time-step index409 CHARACTER(len=*), INTENT(in) :: cdfile_name ! name of the file created410 !!--------------------------------------------------------------------411 412 IF( lwp) WRITE(numout,*) 'dia_wri_state: Dummy call', cdfile_name, kt413 IF( lwp) WRITE(numout,*) '-------------'414 IF( lwp) WRITE(numout,*)415 416 END SUBROUTINE dia_wri_state
Note: See TracChangeset
for help on using the changeset viewer.