Changeset 1511 for trunk/NEMO/TOP_SRC
- Timestamp:
- 2009-07-21T10:59:38+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90
r1508 r1511 37 37 !! * Shared module variables 38 38 LOGICAL, PUBLIC :: & 39 l dustfer = .FALSE. , & !:40 l river = .FALSE. , & !:41 ln depo = .FALSE. , & !:42 l sedinput = .FALSE. !:39 ln_dustfer = .FALSE. , & !: 40 ln_river = .FALSE. , & !: 41 ln_ndepo = .FALSE. , & !: 42 ln_sedinput = .FALSE. !: 43 43 44 44 REAL(wp), PUBLIC :: & … … 97 97 98 98 IF( ( kt * jnt ) == nittrc000 ) CALL p4z_sed_init ! Initialization (first time-step only) 99 IF( (jnt == 1) .and. ( l dustfer ) ) CALL p4z_sbc( kt )99 IF( (jnt == 1) .and. ( ln_dustfer ) ) 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/ l dustfer, lriver, lndepo, lsedinput, sedfeinput, dustsolub465 NAMELIST/nampissed/ ln_dustfer, ln_river, ln_ndepo, ln_sedinput, sedfeinput, dustsolub 466 466 467 467 … … 473 473 WRITE(numout,*) ' Namelist : nampissed ' 474 474 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~ ' 475 WRITE(numout,*) ' Dust input from the atmosphere l dustfer = ', ldustfer476 WRITE(numout,*) ' River input of nutrients l river = ', lriver477 WRITE(numout,*) ' Atmospheric deposition of N ln depo = ', lndepo478 WRITE(numout,*) ' Fe input from sediments l sedinput = ', lsedinput479 WRITE(numout,*) ' Coastal release of Iron sedfeinput =', sedfeinput480 WRITE(numout,*) ' Solubility of the dust dustsolub =', dustsolub475 WRITE(numout,*) ' Dust input from the atmosphere ln_dustfer = ', ln_dustfer 476 WRITE(numout,*) ' River input of nutrients ln_river = ', ln_river 477 WRITE(numout,*) ' Atmospheric deposition of N ln_ndepo = ', ln_ndepo 478 WRITE(numout,*) ' Fe input from sediments ln_sedinput = ', ln_sedinput 479 WRITE(numout,*) ' Coastal release of Iron sedfeinput =', sedfeinput 480 WRITE(numout,*) ' Solubility of the dust dustsolub =', dustsolub 481 481 ENDIF 482 482 483 483 ! Dust input from the atmosphere 484 484 ! ------------------------------ 485 IF( l dustfer ) THEN485 IF( ln_dustfer ) 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( l river ) THEN500 IF( ln_river ) 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( ln depo ) THEN514 IF( ln_ndepo ) 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( l sedinput ) THEN526 IF( ln_sedinput ) 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.