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 8023 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 – NEMO

Ignore:
Timestamp:
2017-05-12T10:21:30+02:00 (7 years ago)
Author:
marc
Message:

Tidying up of headers for several files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r7986 r8023  
    3232      !!  - river inputs 
    3333      !!---------------------------------------------------------------------- 
    34       USE bio_medusa_mod,    ONLY: dms_andr, dms_andr2d, dms_aran,        & 
     34      USE bio_medusa_mod,    ONLY: f_riv_alk, f_riv_c, f_riv_n,           & 
     35                                   f_riv_si, f_runoff,                    &  
     36                                   fgco2,                                 & 
     37# if defined key_roam 
     38                                   dms_andr, dms_andr2d, dms_aran,        & 
    3539                                   dms_aran2d, dms_hall, dms_hall2d,      & 
    3640                                   dms_simo, dms_simo2d, dms_surf,        & 
    37                                    dms_surf2d, iters, f_BetaD,            & 
     41                                   dms_surf2d, f_BetaD,                   & 
    3842                                   f_co2flux, f_co2flux2d, f_co2starair,  & 
    3943                                   f_co2starair_2d, f_co3,                & 
     
    5054                                   f_pco2w, f_pco2w2d, f_ph, f_pp0,       & 
    5155                                   f_pp02d, f_rhosw,                      & 
    52                                    f_riv_alk, f_riv_c, f_riv_n,           & 
    53                                    f_riv_si, f_runoff,                    &  
    5456                                   f_schmidtco2, f_TALK, f_TALK2d,        & 
    5557                                   f_TDIC, f_TDIC2d, f_xco2a, f_xco2a_2d, & 
    56                                    fgco2,                                 & 
    57                                    zalk, zchd, zchn, zdic, zdin, zoxy,    & 
    58                                    zpho, zsal, zsil, ztmp 
     58                                   iters,                                 & 
     59                                   zalk, zdic, zoxy, zsal, ztmp,          & 
     60# endif 
     61# if defined key_mocsy 
     62                                   zpho,                                  & 
     63# endif 
     64                                   zchd, zchn, zdin, zsil 
    5965      USE dom_oce,           ONLY: e3t_0, e3t_n, gphit, tmask 
    60       USE gastransfer,       ONLY: gas_transfer 
     66# if defined key_iomput 
    6167      USE iom,               ONLY: lk_iomput 
     68# endif 
    6269      USE in_out_manager,    ONLY: lwp, numout 
    63       USE mocsy_wrapper,     ONLY: mocsy_interface 
    6470      USE oce,               ONLY: PCO2a_in_cpl 
    6571      USE par_oce,           ONLY: jpim1, jpjm1 
     
    7278                                   zn_dms_mld, zn_dms_qsr  
    7379      USE trc,               ONLY: med_diag 
     80      USE zdfmxl,            ONLY: hmld 
     81 
     82# if defined key_roam 
     83      USE gastransfer,       ONLY: gas_transfer 
     84#  if defined key_mocsy 
     85      USE mocsy_wrapper,     ONLY: mocsy_interface 
     86#  else 
    7487      USE trcco2_medusa,     ONLY: trc_co2_medusa 
     88#  endif 
    7589      USE trcdms_medusa,     ONLY: trc_dms_medusa 
    7690      USE trcoxy_medusa,     ONLY: trc_oxy_medusa 
    77       USE zdfmxl,            ONLY: hmld 
     91# endif 
    7892 
    7993   !!* Substitution 
     
    8397      INTEGER, INTENT( in ) :: kt 
    8498 
     99# if defined key_roam 
    85100      !! jpalm 14-07-2016: convert CO2flux diag from mmol/m2/d to kg/m2/s 
    86101      REAL, PARAMETER :: weight_CO2_mol = 44.0095  !! g / mol 
    87102      REAL, PARAMETER :: secs_in_day    = 86400.0  !! s / d 
    88103      REAL, PARAMETER :: CO2flux_conv   = (1.e-6 * weight_CO2_mol) / secs_in_day 
     104# endif 
    89105 
    90106      INTEGER :: ji, jj 
Note: See TracChangeset for help on using the changeset viewer.