Changeset 1508 for trunk/NEMO/TOP_SRC
- Timestamp:
- 2009-07-20T18:04:17+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90
r1503 r1508 37 37 !! * Shared module variables 38 38 LOGICAL, PUBLIC :: & 39 bdustfer = .FALSE. , & !:40 briver = .FALSE. , & !:41 bndepo = .FALSE. , & !:42 bsedinput = .FALSE. !:39 ldustfer = .FALSE. , & !: 40 lriver = .FALSE. , & !: 41 lndepo = .FALSE. , & !: 42 lsedinput = .FALSE. !: 43 43 44 44 REAL(wp), PUBLIC :: & … … 96 96 97 97 98 IF( ( kt * jnt ) == nittrc000 ) CALL p4z_sed_init ! Initialization (first time-step only)99 IF( (jnt == 1) .and. ( bdustfer) ) CALL p4z_sbc( kt )98 IF( ( kt * jnt ) == nittrc000 ) CALL p4z_sed_init ! Initialization (first time-step only) 99 IF( (jnt == 1) .and. ( ldustfer ) ) CALL p4z_sbc( kt ) 100 100 101 101 zstep = rfact2 / rjjss ! Time step duration for the biology … … 463 463 REAL(wp) , DIMENSION(jpi,jpj,12) :: zdustmo 464 464 465 NAMELIST/nampissed/ bdustfer, briver, bndepo, bsedinput, sedfeinput, dustsolub465 NAMELIST/nampissed/ ldustfer, lriver, lndepo, lsedinput, sedfeinput, dustsolub 466 466 467 467 … … 473 473 WRITE(numout,*) ' Namelist : nampissed ' 474 474 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~ ' 475 WRITE(numout,*) ' Dust input from the atmosphere bdustfer = ', bdustfer476 WRITE(numout,*) ' River input of nutrients briver = ', briver477 WRITE(numout,*) ' Atmospheric deposition of N bndepo = ', bndepo478 WRITE(numout,*) ' Fe input from sediments bsedinput = ', bsedinput475 WRITE(numout,*) ' Dust input from the atmosphere ldustfer = ', ldustfer 476 WRITE(numout,*) ' River input of nutrients lriver = ', lriver 477 WRITE(numout,*) ' Atmospheric deposition of N lndepo = ', lndepo 478 WRITE(numout,*) ' Fe input from sediments lsedinput = ', lsedinput 479 479 WRITE(numout,*) ' Coastal release of Iron sedfeinput =', sedfeinput 480 480 WRITE(numout,*) ' Solubility of the dust dustsolub =', dustsolub … … 483 483 ! Dust input from the atmosphere 484 484 ! ------------------------------ 485 IF( bdustfer ) THEN485 IF( ldustfer ) THEN 486 486 IF(lwp) WRITE(numout,*) ' Initialize dust input from atmosphere ' 487 487 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' … … 498 498 ! Nutrient input from rivers 499 499 ! -------------------------- 500 IF( briver ) THEN500 IF( lriver ) THEN 501 501 IF(lwp) WRITE(numout,*) ' Initialize the nutrient input by rivers from river.orca.nc file' 502 502 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' … … 512 512 ! Nutrient input from dust 513 513 ! ------------------------ 514 IF( bndepo ) THEN514 IF( lndepo ) THEN 515 515 IF(lwp) WRITE(numout,*) ' Initialize the nutrient input by dust from ndeposition.orca.nc' 516 516 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' … … 524 524 ! Coastal and island masks 525 525 ! ------------------------ 526 IF( bsedinput ) THEN526 IF( lsedinput ) THEN 527 527 IF(lwp) WRITE(numout,*) ' Computation of an island mask to enhance coastal supply of iron' 528 528 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Note: See TracChangeset
for help on using the changeset viewer.