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 10004 for branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90 – NEMO

Ignore:
Timestamp:
2018-07-26T11:45:40+02:00 (6 years ago)
Author:
frrh
Message:

Various fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r9257 r10004  
    3737      USE sms_medusa,        ONLY: jdms 
    3838      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000  
    39       USE in_out_manager,    ONLY: lwp 
    40  
    41 # if defined key_iomput 
    42       USE iom,               ONLY: lk_iomput, numout 
     39      USE in_out_manager,    ONLY: lwp, numout 
     40 
     41      USE iom,               ONLY: lk_iomput 
    4342      USE trcnam_medusa,     ONLY: trc_nam_iom_medusa 
    44 # endif 
    4543 
    4644      !! time (integer timestep) 
     
    178176      zdic(:,:)  = 0.0 
    179177      zsil(:,:)  = 0.0 
     178# if defined key_mocsy 
     179      ! zpho is only defined if key_mocsy 
     180      ! is active, so we must protect this 
     181      ! initialisation accordingly.  
    180182      zpho(:,:)  = 0.0 
     183# endif 
    181184      f_co2flux(:,:)  = 0.0  
    182185      f_pco2atm(:,:)  = 0.0 
     
    864867CONTAINS 
    865868   SUBROUTINE bio_medusa_init( )                   ! Empty routine 
     869      IMPLICIT NONE 
    866870      WRITE(*,*) 'bio_medusa_init: You should not have seen this print! error?' 
    867871   END SUBROUTINE bio_medusa_init 
Note: See TracChangeset for help on using the changeset viewer.