Changeset 49 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-04-22T11:13:02+02:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfslp.F90
r32 r49 471 471 472 472 473 ! III Lateral boundary conditions on all slopes (uslp , vslp,474 ! ------------------------------- wslpi,wslpj )473 ! III Lateral boundary conditions on all slopes (uslp , vslp, 474 ! ------------------------------- wslpi, wslpj ) 475 475 CALL lbc_lnk( uslp , 'U', -1. ) 476 476 CALL lbc_lnk( vslp , 'V', -1. ) 477 477 CALL lbc_lnk( wslpi, 'W', -1. ) 478 478 CALL lbc_lnk( wslpj, 'W', -1. ) 479 480 IF(l_ctl) THEN 481 WRITE(numout,*) ' slp - u : ', SUM( uslp (:,:,:) ), ' v : ', SUM( vslp (:,:,:) ) 482 WRITE(numout,*) ' - wi: ', SUM( wslpi(:,:,:) ), ' wj: ', SUM( wslpj(:,:,:) ) 483 ENDIF 479 484 480 485 END SUBROUTINE ldf_slp … … 625 630 ! Local vertical density gradient evaluated from N^2 626 631 ! zwy = d/dz(prd)= - ( prd ) / grav * mk(pn2) -- at t point 627 zwy ( :, jpj) = 0. 0e0628 zwy ( jpi, :) = 0. 0e0632 zwy ( :, jpj) = 0.e0 633 zwy ( jpi, :) = 0.e0 629 634 # if defined key_vectopt_loop && ! defined key_autotasking 630 635 jj = 1 -
trunk/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r3 r49 168 168 CALL lbc_lnk( avmv, 'V', 1. ) 169 169 170 IF( l_ctl ) WRITE(numout,*) ' bfr u : ', SUM( avmu(:,:,:) ), ' v : ', SUM( avmv(:,:,:) ) 171 170 172 END SUBROUTINE zdf_bfr 171 173 -
trunk/NEMO/OPA_SRC/ZDF/zdfddm.F90
r16 r49 198 198 CALL lbc_lnk( avmu, 'U', 1. ) 199 199 CALL lbc_lnk( avmv, 'V', 1. ) 200 201 IF( l_ctl ) THEN 202 WRITE(numout,*) ' ddm t : ', SUM( avt (:,:,:) ), ' s : ', SUM( avs (:,:,:) ) 203 WRITE(numout,*) ' u : ', SUM( avmu(:,:,:) ), ' v : ', SUM( avmv(:,:,:) ) 204 ENDIF 200 205 201 206 END SUBROUTINE zdf_ddm … … 230 235 WRITE(numout,*) '~~~~~~~' 231 236 WRITE(numout,*) ' Namelist namddm : set dd mixing parameter' 232 WRITE(numout,*)233 237 WRITE(numout,*) ' maximum avs for dd mixing avts = ', avts 234 238 WRITE(numout,*) ' heat/salt buoyancy flux ratio hsbfr = ', hsbfr -
trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r16 r49 131 131 END DO ! End of slab 132 132 ! ! =============== 133 134 IF( l_ctl ) WRITE(numout,*) ' nmln : ', SUM( nmln(:,:) ), ' hmld: ', SUM( hmld(:,:) ) 133 135 134 136 END SUBROUTINE zdf_mxl … … 232 234 END DO 233 235 236 IF( l_ctl ) WRITE(numout,*) ' nmln : ', SUM( nmln(:,:) ), ' hmld: ', SUM( hmld(:,:) ) 237 234 238 END SUBROUTINE zdf_mxl 235 239 #endif -
trunk/NEMO/OPA_SRC/ZDF/zdftke.F90
r16 r49 578 578 CALL lbc_lnk( avt, 'W', 1. ) 579 579 580 IF( l_ctl ) THEN 581 WRITE(numout,*) ' tke e : ', SUM( en (:,:,:) ), ' t : ', SUM( avt (:,:,:) ) 582 WRITE(numout,*) ' u : ', SUM( avmu(:,:,:) ), ' v : ', SUM( avmv(:,:,:) ) 583 ENDIF 584 580 585 END SUBROUTINE zdf_tke 581 586 … … 634 639 WRITE(numout,*) '~~~~~~~~~~~~' 635 640 WRITE(numout,*) ' Namelist namtke : set tke mixing parameters' 636 WRITE(numout,*)637 641 WRITE(numout,*) ' restart with tke from no tke ln_rstke = ', ln_rstke 638 642 WRITE(numout,*) ' coef. to compute avt ediff = ', ediff -
trunk/NEMO/OPA_SRC/eosbn2.F90
r15 r49 222 222 END SELECT 223 223 224 IF(l_ctl) WRITE(numout,*) ' eos : ', SUM( prd(:,:,:) ) 225 224 226 END SUBROUTINE eos_insitu 225 227 … … 371 373 zs = psal(ji,jj,jk) 372 374 ! ... density and potential volumic mass 373 prd (ji,jj,jk) = ( 0.0285 - ralpha * zt )* tmask(ji,jj,jk)375 prd (ji,jj,jk) = ( 0.0285 - ralpha * zt ) * tmask(ji,jj,jk) 374 376 prhop(ji,jj,jk) = ( rau0 * prd(ji,jj,jk) + rau0 ) * tmask(ji,jj,jk) 375 377 END DO … … 390 392 zs = psal(ji,jj,jk) 391 393 ! ... density and potential volumic mass 392 prd (ji,jj,jk) = (rbeta * zs - ralpha * zt - 1. ) * tmask(ji,jj,jk)393 prhop(ji,jj,jk) = ( rau0 * prd(ji,jj,jk) + rau0 ) * tmask(ji,jj,jk)394 prd (ji,jj,jk) = ( rbeta * zs - ralpha * zt - 1. ) * tmask(ji,jj,jk) 395 prhop(ji,jj,jk) = ( rau0 * prd(ji,jj,jk) + rau0 ) * tmask(ji,jj,jk) 394 396 END DO 395 397 END DO … … 405 407 406 408 END SELECT 409 410 IF(l_ctl) WRITE(numout,*) ' eos-p: ', SUM( prd(:,:,:) ), ' pot : ', SUM( prhop(:,:,:) ) 407 411 408 412 END SUBROUTINE eos_insitu_pot … … 580 584 END SELECT 581 585 586 IF(l_ctl) WRITE(numout,*) ' eos2d: ', SUM( prd(1:jpim1,1:jpjm1) ) 587 582 588 END SUBROUTINE eos_insitu_2d 583 589 … … 753 759 END SELECT 754 760 761 IF(l_ctl) WRITE(numout,*) ' bn2 : ', SUM( pn2 (:,:,:) ) 762 #if defined key_zdfddm 763 IF(l_ctl) WRITE(numout,*) ' rrau : ', SUM( rrau(:,:,:) ) 764 #endif 765 755 766 END SUBROUTINE eos_bn2 756 767
Note: See TracChangeset
for help on using the changeset viewer.