Changeset 1151 for trunk/NEMO/OPA_SRC/OBC/obcrst.F90
- Timestamp:
- 2008-06-26T14:54:53+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/OBC/obcrst.F90
r1146 r1151 21 21 22 22 !! * Accessibility 23 PUBLIC obc_rst_ lec ! routine called by iniobc.F9024 PUBLIC obc_rst_wri ! routine called by step.F9023 PUBLIC obc_rst_read ! routine called by obc_ini 24 PUBLIC obc_rst_write ! routine called by step 25 25 26 26 !!--------------------------------------------------------------------------------- … … 32 32 CONTAINS 33 33 34 SUBROUTINE obc_rst_wri ( kt )34 SUBROUTINE obc_rst_write ( kt ) 35 35 !!-------------------------------------------------------------------------------- 36 !! *** SUBROUTINE obc_rst_wri ***36 !! *** SUBROUTINE obc_rst_write *** 37 37 !! 38 38 !! ** Purpose : Write open boundary restart fields in restart.obc.output file … … 41 41 !! Each nstock time step , save fields which are necessary for restart. 42 42 !! - This routine is called if at least the key_obc is defined. It is called 43 !! at the same time step than rstwri .43 !! at the same time step than rstwrite. 44 44 !! - First record holds OBC parameters nbobc,jpieob,jpiwob,jpjnob,jpjsob and 45 45 !! the OBC layout jpjed, jpjef ... for checking purposes. … … 82 82 IF(lwp) THEN 83 83 WRITE(numout,*) ' ' 84 WRITE(numout,*) 'obcrst: OBC output for restart with obc_rst_wri routine'84 WRITE(numout,*) 'obcrst: OBC output for restart with obc_rst_write routine' 85 85 WRITE(numout,*) '~~~~~~' 86 86 WRITE(numout,*) ' output done in restart.obc.output file at it= ', kt, ' date= ', ndastp … … 283 283 END IF 284 284 END IF 285 END IF286 285 CLOSE(inum) 287 288 END SUBROUTINE obc_rst_wri 289 290 291 SUBROUTINE obc_rst_lec 286 END IF 287 288 END SUBROUTINE obc_rst_write 289 290 291 SUBROUTINE obc_rst_read 292 292 !!---------------------------------------------------------------------------- 293 !! *** SUBROUTINE obc_rst_ lec***293 !! *** SUBROUTINE obc_rst_read *** 294 294 !! 295 295 !! ** Purpose : Read files for restart at open boundaries … … 337 337 338 338 IF(lwp) THEN 339 WRITE(numout,*) 'obcrst: beginning of restart with obc_rst_ lecroutine'339 WRITE(numout,*) 'obcrst: beginning of restart with obc_rst_read routine' 340 340 WRITE(numout,*) '~~~~~~' 341 341 WRITE(numout,*) ' ' … … 348 348 ! 0.1 Open files 349 349 ! --------------- 350 CALL ctlopn( inum, 'restart.obc .output', 'UNKNOWN', 'UNFORMATTED', 'DIRECT', &350 CALL ctlopn( inum, 'restart.obc', 'UNKNOWN', 'UNFORMATTED', 'DIRECT', & 351 351 & nreclo, numout, lwp, 1 ) 352 352 … … 370 370 CALL ctl_stop( ' ===>>>> : problem with nit000 for the restart', & 371 371 & ' ==============', & 372 & ' we stop in obc_rst_ lecroutine. Verify the file or rerun with the value', &372 & ' we stop in obc_rst_read routine. Verify the file or rerun with the value', & 373 373 & ' 0 for the control of time parameter nrstdt' ) 374 374 … … 391 391 WRITE(numout,*) ' ' 392 392 WRITE(numout,*) ' East open boundary' 393 IF( jpieob0 /= jpieob1 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpieob have changed' )393 IF( jpieob0 /= jpieob1 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpieob have changed' ) 394 394 END IF 395 395 END IF … … 399 399 WRITE(numout,*) ' ' 400 400 WRITE(numout,*) ' West open boundary' 401 IF( jpiwob0 /= jpiwob1 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpiwob has changed' )401 IF( jpiwob0 /= jpiwob1 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpiwob has changed' ) 402 402 END IF 403 403 END IF … … 407 407 WRITE(numout,*) ' ' 408 408 WRITE(numout,*) ' North open boundary' 409 IF( jpjnob0 /= jpjnob1 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpjnob has changed' )409 IF( jpjnob0 /= jpjnob1 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpjnob has changed' ) 410 410 END IF 411 411 END IF … … 415 415 WRITE(numout,*) ' ' 416 416 WRITE(numout,*) ' South open boundary' 417 IF( jpjsob0 /= jpjsob1) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpjsob has changed' )417 IF( jpjsob0 /= jpjsob1) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpjsob has changed' ) 418 418 END IF 419 419 END IF … … 423 423 ! ------------------------------------------ 424 424 IF( lp_obc_east .AND. ( jpieob1 /= 0 ) ) THEN 425 IF( ied1 /= ied0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpjed has changed' )426 IF( ief1 /= ief0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpjef has changed' )425 IF( ied1 /= ied0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpjed has changed' ) 426 IF( ief1 /= ief0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpjef has changed' ) 427 427 END IF 428 428 429 429 IF( lp_obc_west .AND. ( jpiwob1 /= 0 ) ) THEN 430 IF( iwd1 /= iwd0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpjwd has changed' )431 IF( iwf1 /= iwf0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpjwf has changed' )430 IF( iwd1 /= iwd0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpjwd has changed' ) 431 IF( iwf1 /= iwf0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpjwf has changed' ) 432 432 END IF 433 433 434 434 IF( lp_obc_north .AND. ( jpjnob1 /= 0 ) ) THEN 435 IF( ind1 /= ind0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpind has changed' )436 IF( inf1 /= inf0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpinf has changed' )435 IF( ind1 /= ind0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpind has changed' ) 436 IF( inf1 /= inf0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpinf has changed' ) 437 437 END IF 438 438 439 439 IF( lp_obc_south .AND. ( jpjsob1 /= 0 ) ) THEN 440 IF( isd1 /= isd0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpisd has changed' )441 IF( isf1 /= isf0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_ lec, jpisf has changed' )440 IF( isd1 /= isd0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpisd has changed' ) 441 IF( isf1 /= isf0 ) CALL ctl_stop( ' ==>>>> : Problem in obc_rst_read, jpisf has changed' ) 442 442 END IF 443 443 … … 653 653 ENDIF 654 654 655 END SUBROUTINE obc_rst_ lec655 END SUBROUTINE obc_rst_read 656 656 #else 657 657 !!================================================================================= … … 660 660 !!================================================================================= 661 661 CONTAINS 662 SUBROUTINE obc_rst_wri ( kt ) ! No Open boundary ==> empty routine662 SUBROUTINE obc_rst_write( kt ) ! No Open boundary ==> empty routine 663 663 INTEGER,INTENT(in) :: kt 664 WRITE(*,*) 'obc_rst_wri : You should not have seen this print! error?', kt665 END SUBROUTINE obc_rst_wri 666 SUBROUTINE obc_rst_ lec! No Open boundary ==> empty routine667 END SUBROUTINE obc_rst_ lec664 WRITE(*,*) 'obc_rst_write: You should not have seen this print! error?', kt 665 END SUBROUTINE obc_rst_write 666 SUBROUTINE obc_rst_read ! No Open boundary ==> empty routine 667 END SUBROUTINE obc_rst_read 668 668 #endif 669 669
Note: See TracChangeset
for help on using the changeset viewer.