New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1508 – NEMO

Changeset 1508


Ignore:
Timestamp:
2009-07-20T18:04:17+02:00 (15 years ago)
Author:
cetlod
Message:

update p4zsed.F90 PISCES module to take into account OPA coding rules

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90

    r1503 r1508  
    3737   !! * Shared module variables 
    3838   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.            !: 
    4343 
    4444   REAL(wp), PUBLIC ::   & 
     
    9696 
    9797 
    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 ) 
    100100 
    101101      zstep = rfact2 / rjjss      ! Time step duration for the biology 
     
    463463      REAL(wp) , DIMENSION(jpi,jpj,12)    ::   zdustmo 
    464464 
    465       NAMELIST/nampissed/ bdustfer, briver, bndepo, bsedinput, sedfeinput, dustsolub 
     465      NAMELIST/nampissed/ ldustfer, lriver, lndepo, lsedinput, sedfeinput, dustsolub 
    466466 
    467467 
     
    473473         WRITE(numout,*) ' Namelist : nampissed ' 
    474474         WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~ ' 
    475          WRITE(numout,*) '    Dust input from the atmosphere           bdustfer  = ', bdustfer 
    476          WRITE(numout,*) '    River input of nutrients                 briver    = ', briver 
    477          WRITE(numout,*) '    Atmospheric deposition of N              bndepo    = ', bndepo 
    478          WRITE(numout,*) '    Fe input from sediments                  bsedinput = ', bsedinput 
     475         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 
    479479         WRITE(numout,*) '    Coastal release of Iron                  sedfeinput =', sedfeinput 
    480480         WRITE(numout,*) '    Solubility of the dust                   dustsolub  =', dustsolub 
     
    483483      ! Dust input from the atmosphere 
    484484      ! ------------------------------ 
    485       IF( bdustfer ) THEN  
     485      IF( ldustfer ) THEN  
    486486         IF(lwp) WRITE(numout,*) '    Initialize dust input from atmosphere ' 
    487487         IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' 
     
    498498      ! Nutrient input from rivers 
    499499      ! -------------------------- 
    500       IF( briver ) THEN 
     500      IF( lriver ) THEN 
    501501         IF(lwp) WRITE(numout,*) '    Initialize the nutrient input by rivers from river.orca.nc file' 
    502502         IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 
     
    512512      ! Nutrient input from dust 
    513513      ! ------------------------ 
    514       IF( bndepo ) THEN 
     514      IF( lndepo ) THEN 
    515515         IF(lwp) WRITE(numout,*) '    Initialize the nutrient input by dust from ndeposition.orca.nc' 
    516516         IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 
     
    524524      ! Coastal and island masks 
    525525      ! ------------------------ 
    526       IF( bsedinput ) THEN      
     526      IF( lsedinput ) THEN      
    527527         IF(lwp) WRITE(numout,*) '    Computation of an island mask to enhance coastal supply of iron' 
    528528         IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 
Note: See TracChangeset for help on using the changeset viewer.