- Timestamp:
- 2012-01-23T10:07:59+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdia.F90
r3124 r3271 66 66 !! ** Purpose : output passive tracers fields 67 67 !!--------------------------------------------------------------------- 68 INTEGER, INTENT(in) :: kt 69 ! 70 INTEGER :: ierr , kindic! local integer68 INTEGER, INTENT(in) :: kt ! ocean time-step 69 ! 70 INTEGER :: ierr ! local integer 71 71 !!--------------------------------------------------------------------- 72 72 ! … … 79 79 ! 80 80 IF( .NOT.lk_iomput ) THEN 81 CALL trcdit_wr( kt , kindic) ! outputs for tracer concentration82 IF( ln_diatrc ) CALL trcdii_wr( kt , kindic) ! outputs for additional arrays83 IF( ln_diabio ) CALL trcdib_wr( kt , kindic) ! outputs for biological trends81 CALL trcdit_wr( kt ) ! outputs for tracer concentration 82 IF( ln_diatrc ) CALL trcdii_wr( kt ) ! outputs for additional arrays 83 IF( ln_diabio ) CALL trcdib_wr( kt ) ! outputs for biological trends 84 84 ENDIF 85 85 ! … … 87 87 88 88 89 SUBROUTINE trcdit_wr( kt , kindic)89 SUBROUTINE trcdit_wr( kt ) 90 90 !!---------------------------------------------------------------------- 91 91 !! *** ROUTINE trcdit_wr *** … … 99 99 !! Each nwritetrc time step, output the instantaneous or mean fields 100 100 !! 101 !! IF kindic <0, output of fields before the model interruption.102 !! IF kindic =0, time step loop103 !! IF kindic >0, output of fields before the time step loop104 101 !!---------------------------------------------------------------------- 105 102 INTEGER, INTENT(in) :: kt ! ocean time-step 106 INTEGER, INTENT(in) :: kindic ! indicator of abnormal termination107 103 ! 108 104 INTEGER :: jn … … 150 146 ! -------------------------------------------------------------- 151 147 152 IF(ll_print)WRITE(numout,*)'trcdit_wr kt=',kt ,' kindic ',kindic148 IF(ll_print)WRITE(numout,*)'trcdit_wr kt=',kt 153 149 154 150 IF( kt == nittrc000 ) THEN … … 231 227 ! close the file 232 228 ! -------------- 233 IF( kt == nitend .OR. kindic < 0) CALL histclo( nit5 )229 IF( kt == nitend ) CALL histclo( nit5 ) 234 230 ! 235 231 END SUBROUTINE trcdit_wr 236 232 237 SUBROUTINE trcdii_wr( kt , kindic)233 SUBROUTINE trcdii_wr( kt ) 238 234 !!---------------------------------------------------------------------- 239 235 !! *** ROUTINE trcdii_wr *** … … 247 243 !! Each nn_writedia time step, output the instantaneous or mean fields 248 244 !! 249 !! IF kindic <0, output of fields before the model interruption.250 !! IF kindic =0, time step loop251 !! IF kindic >0, output of fields before the time step loop252 245 !!---------------------------------------------------------------------- 253 246 INTEGER, INTENT(in) :: kt ! ocean time-step 254 INTEGER, INTENT(in) :: kindic ! indicator of abnormal termination255 247 !! 256 248 LOGICAL :: ll_print = .FALSE. … … 297 289 ! ----------------------------------------------------------------- 298 290 299 IF( ll_print ) WRITE(numout,*) 'trcdii_wr kt=', kt , ' kindic ', kindic291 IF( ll_print ) WRITE(numout,*) 'trcdii_wr kt=', kt 300 292 301 293 IF( kt == nittrc000 ) THEN … … 371 363 ! Closing all files 372 364 ! ----------------- 373 IF( kt == nitend .OR. kindic < 0) CALL histclo(nitd)365 IF( kt == nitend ) CALL histclo(nitd) 374 366 ! 375 367 376 368 END SUBROUTINE trcdii_wr 377 369 378 SUBROUTINE trcdib_wr( kt , kindic)370 SUBROUTINE trcdib_wr( kt ) 379 371 !!---------------------------------------------------------------------- 380 372 !! *** ROUTINE trcdib_wr *** … … 388 380 !! Each nn_writebio time step, output the instantaneous or mean fields 389 381 !! 390 !! IF kindic <0, output of fields before the model interruption.391 !! IF kindic =0, time step loop392 !! IF kindic >0, output of fields before the time step loop393 382 !!---------------------------------------------------------------------- 394 383 INTEGER, INTENT( in ) :: kt ! ocean time-step 395 INTEGER, INTENT( in ) :: kindic ! indicator of abnormal termination396 384 !! 397 385 LOGICAL :: ll_print = .FALSE. … … 438 426 ! -------------------------------------------------------------- 439 427 440 IF(ll_print) WRITE(numout,*)'trcdib_wr kt=',kt ,' kindic ',kindic428 IF(ll_print) WRITE(numout,*)'trcdib_wr kt=',kt 441 429 442 430 IF( kt == nittrc000 ) THEN … … 488 476 ! Closing all files 489 477 ! ----------------- 490 IF( kt == nitend .OR. kindic < 0) CALL histclo( nitb )478 IF( kt == nitend ) CALL histclo( nitb ) 491 479 ! 492 480 END SUBROUTINE trcdib_wr
Note: See TracChangeset
for help on using the changeset viewer.