Changeset 35 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-02-18T12:06:07+01:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/OBC/obcdta.F90
r26 r35 8 8 !! 'key_obc' : Open Boundary Conditions 9 9 !!------------------------------------------------------------------------------ 10 !! obc_dta _uvt: read u, v, t, s data along each open boundary10 !! obc_dta : read u, v, t, s data along each open boundary 11 11 !! obc_dta_psi : read psi data along each open boundary (rigid lid only) 12 12 !!------------------------------------------------------------------------------ … … 20 20 USE in_out_manager ! I/O logical units 21 21 USE lib_mpp ! distribued memory computing 22 USE dynspg_rl ! 22 23 23 24 … … 30 31 31 32 !! * Accessibility 32 PUBLIC obc_dta_uvt ! routines called by step.F90 33 PUBLIC obc_dta_psi ! routines called by step.F90 33 PUBLIC obc_dta ! routines called by step.F90 34 34 35 35 !! * Substitutions … … 41 41 CONTAINS 42 42 43 SUBROUTINE obc_dta _uvt( kt )43 SUBROUTINE obc_dta( kt ) 44 44 !!--------------------------------------------------------------------------- 45 !! *** SUBROUTINE obc_dta _uvt***45 !! *** SUBROUTINE obc_dta *** 46 46 !! 47 47 !! ** Purpose : Find the climatological boundary arrays for the specified date, … … 75 75 !!--------------------------------------------------------------------- 76 76 77 78 IF( lk_dynspg_rl ) CALL obc_dta_psi( kt ) ! update bsf data at open boundaries 79 80 77 81 ! 0. Initialization of date 78 82 ! imois is the index (1 to 12) of the first month to be used in the … … 91 95 IF( zxy > 1.01 .OR. zxy < 0. ) THEN 92 96 IF(lwp) WRITE(numout,*)' ' 93 IF(lwp) WRITE(numout,*)'obc_dta _uvt: Pbm with the the weight of the after field zxy '97 IF(lwp) WRITE(numout,*)'obc_dta: Pbm with the the weight of the after field zxy ' 94 98 IF(lwp) WRITE(numout,*)'~~~~~~~~~~~' 95 99 nstop = nstop + 1 … … 101 105 IF( kt == nit000 ) THEN 102 106 IF(lwp) WRITE(numout,*)' ' 103 IF(lwp) WRITE(numout,*)'obcdta: initial step in obc_dta _uvt'107 IF(lwp) WRITE(numout,*)'obcdta: initial step in obc_dta' 104 108 IF(lwp) WRITE(numout,*)'~~~~~~ months ',imois,' and', imoisp1,' read' 105 109 … … 171 175 RECL = 4096 ) 172 176 IF( ios > 0 ) THEN 173 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obceast.dta file '174 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'177 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obceast.dta file ' 178 IF(lwp) WRITE(numout,*) '~~~~~~~' 175 179 nstop = nstop + 1 176 180 END IF … … 186 190 RECL = irecl ) 187 191 IF( ios > 0 ) THEN 188 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obceast.dta file '189 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'192 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obceast.dta file ' 193 IF(lwp) WRITE(numout,*) '~~~~~~~' 190 194 nstop = nstop + 1 191 195 END IF … … 268 272 RECL = 4096 ) 269 273 IF( ios > 0 ) THEN 270 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obcwest.dta file '271 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'274 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obcwest.dta file ' 275 IF(lwp) WRITE(numout,*) '~~~~~~~' 272 276 nstop = nstop + 1 273 277 END IF … … 283 287 RECL = irecl ) 284 288 IF( ios > 0 ) THEN 285 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obcwest.dta file '286 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'289 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obcwest.dta file ' 290 IF(lwp) WRITE(numout,*) '~~~~~~~' 287 291 nstop = nstop + 1 288 292 END IF … … 338 342 RECL = 4096 ) 339 343 IF( ios > 0 ) THEN 340 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obcnorth.dta file '341 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'344 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obcnorth.dta file ' 345 IF(lwp) WRITE(numout,*) '~~~~~~~' 342 346 nstop = nstop + 1 343 347 END IF … … 353 357 RECL = irecl ) 354 358 IF( ios > 0 ) THEN 355 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obcnorth.dta file '356 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'359 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obcnorth.dta file ' 360 IF(lwp) WRITE(numout,*) '~~~~~~~' 357 361 nstop = nstop + 1 358 362 END IF … … 410 414 RECL = 4096 ) 411 415 IF( ios > 0 ) THEN 412 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obcsouth.dta file '413 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'416 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obcsouth.dta file ' 417 IF(lwp) WRITE(numout,*) '~~~~~~~' 414 418 nstop = nstop + 1 415 419 END IF … … 425 429 RECL = irecl ) 426 430 IF( ios > 0 ) THEN 427 IF(lwp) WRITE(numout,*) 'obc_dta _uvt: Pbm to OPEN the obcsouth.dta file '428 IF(lwp) WRITE(numout,*) '~~~~~~~ ~~~~'431 IF(lwp) WRITE(numout,*) 'obc_dta: Pbm to OPEN the obcsouth.dta file ' 432 IF(lwp) WRITE(numout,*) '~~~~~~~' 429 433 nstop = nstop + 1 430 434 END IF … … 518 522 END IF 519 523 520 END SUBROUTINE obc_dta _uvt524 END SUBROUTINE obc_dta 521 525 522 526 # if defined key_dynspg_fsc … … 700 704 701 705 END SUBROUTINE obc_dta_psi 706 702 707 # endif 703 708 704 709 #else 710 !!------------------------------------------------------------------------------ 711 !! default option: Dummy module NO Open Boundary Conditions 712 !!------------------------------------------------------------------------------ 713 CONTAINS 714 SUBROUTINE obc_dta( kt ) ! Dummy routine 715 INTEGER, INTENT (in) :: kt 716 WRITE(*,*) 'obc_dta: You should not have seen this print! error?', kt 717 END SUBROUTINE obc_dta 718 #endif 719 705 720 !!============================================================================== 706 !! *** MODULE obcdta ***707 !! Empty module : no open boundary conditions708 !!==============================================================================709 CONTAINS710 SUBROUTINE obc_dta_uvt( kt ) ! Empty routine711 INTEGER, INTENT (in) :: kt712 WRITE(*,*) 'obc_dta_uvt: You should not have seen this print! error?', kt713 END SUBROUTINE obc_dta_uvt714 715 SUBROUTINE obc_dta_psi( kt ) ! Empty routine716 INTEGER, INTENT (in) :: kt717 WRITE(*,*) 'obc_dta_psi: You should not have seen this print! error?', kt718 END SUBROUTINE obc_dta_psi719 720 #endif721 722 721 END MODULE obcdta -
trunk/NEMO/OPA_SRC/step.F90
r15 r35 186 186 IF( lk_dtasst ) CALL dta_sst( kstp ) ! Sea Surface Temperature data 187 187 188 IF( lk_obc ) CALL obc_dta_psi( kstp ) ! update bsf data at open boundaries 189 190 IF( lk_obc ) CALL obc_dta_uvt( kstp ) ! update u, v, t, s data at open boundaries 188 IF( lk_obc ) CALL obc_dta( kstp ) ! update dynamic and tracer data at open boundaries 191 189 192 190 IF( lk_obc ) CALL obc_rad( kstp ) ! compute phase velocities at open boundaries … … 371 369 IF( ln_dynvor_ens ) CALL dyn_vor_enstrophy( kstp ) ! enstrophy conserving scheme 372 370 IF( ln_dynvor_ene ) CALL dyn_vor_energy ( kstp ) ! energy conserving scheme 373 IF( ln_dynvor_mix ) CALL dyn_vor_mixed ( kstp ) ! combined scheme 371 IF( ln_dynvor_mix ) CALL dyn_vor_mixed ( kstp ) ! mixed energy/enstrophy conserving scheme 372 IF( ln_dynvor_een ) CALL dyn_vor_ene_ens ( kstp ) ! energy and enstrophy conserving scheme 374 373 375 374 ! ! lateral mixing
Note: See TracChangeset
for help on using the changeset viewer.