Changeset 10007


Ignore:
Timestamp:
2018-07-26T17:13:32+02:00 (2 years ago)
Author:
frrh
Message:

It turns out we do need certain CPP macros - so we need to introduce
explicit declarations based on key_vvl.

Location:
branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC
Files:
12 edited

Legend:

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

    r10004 r10007  
    6363                                   zchd, zchn, zdin, zsil 
    6464      USE dom_oce,           ONLY: e3t_0, gphit, tmask, mig, mjg 
     65# if defined key_vvl 
     66      USE dom_oce,           ONLY: e3t_n 
     67# endif 
    6568      USE iom,               ONLY: lk_iomput 
    6669      USE in_out_manager,    ONLY: lwp, numout 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

    r10004 r10007  
    3232      USE bio_medusa_mod 
    3333      USE dom_oce,           ONLY: e3t_0, mbathy, tmask 
     34# if defined key_vvl 
     35      USE dom_oce,           ONLY: e3t_n 
     36# endif 
    3437      USE in_out_manager,    ONLY: lwp, numout 
    3538      USE par_oce,           ONLY: jpim1, jpjm1 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90

    r10004 r10007  
    3333      USE bio_medusa_mod 
    3434      USE dom_oce,                  ONLY: e3t_0, gdepw_0, tmask 
     35# if defined key_vvl 
     36      USE dom_oce,                  ONLY: e3t_n, gdepw_n 
     37# endif 
    3538      USE in_out_manager,           ONLY: lwp, numout 
    3639      USE iom,                      ONLY: lk_iomput 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

    r10004 r10007  
    7272                                   zpds, zphd, zphn 
    7373      USE dom_oce,           ONLY: e3t_0, gphit, mbathy, tmask 
     74# if defined key_vvl 
     75      USE dom_oce,           ONLY: e3t_n 
     76# endif 
    7477      USE in_out_manager,    ONLY: lwp, numout 
    7578      USE lib_mpp,           ONLY: ctl_stop 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90

    r10004 r10007  
    4141                                   zalk, zdic, zsal, zsil, ztmp  
    4242      USE dom_oce,           ONLY: gdept_0, gdepw_0, gphit, mbathy, tmask 
     43# if defined key_vvl 
     44      USE dom_oce,           ONLY: gdept_n, gdepw_n 
     45# endif 
    4346      USE in_out_manager,    ONLY: lwp, numout 
    4447      USE oce,               ONLY: PCO2a_in_cpl, tsb, tsn 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90

    r10004 r10007  
    4646      USE detritus_fast_sink_mod, ONLY: detritus_fast_sink 
    4747      USE dom_oce,                ONLY: mbathy, e3t_0, gphit, tmask 
     48# if defined key_vvl 
     49      USE dom_oce,                ONLY: e3t_n 
     50# endif 
    4851      USE in_out_manager,         ONLY: lwp, numout 
    4952      USE par_oce,                ONLY: jpim1, jpjm1 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus_fast_sink.F90

    r10004 r10007  
    6767                                   zdet, zdtc 
    6868      USE dom_oce,           ONLY: e3t_0, gdepw_0, gphit, mbathy, tmask 
     69# if defined key_vvl 
     70      USE dom_oce,           ONLY: e3t_n, gdepw_n 
     71# endif 
    6972      USE in_out_manager,    ONLY: lwp, numout 
    7073      USE oce,               ONLY: tsn 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/iron_chem_scav.F90

    r10004 r10007  
    3636                                   idf, idfval                           
    3737      USE dom_oce,           ONLY: e3t_0, gdepw_0, mbathy, tmask 
     38#if defined key_vvl 
     39      USE dom_oce,           ONLY: e3t_n, gdepw_n 
     40#endif 
    3841      USE par_kind,          ONLY: wp 
    3942      USE in_out_manager,    ONLY: lwp, numout 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

    r10004 r10007  
    4545                                   zzme, zzmi, fchl_ml 
    4646      USE dom_oce,           ONLY: e3t_0, gdepw_0, tmask 
     47#if defined key_vvl 
     48      USE dom_oce,           ONLY: e3t_n, gdepw_n 
     49#endif 
    4750      USE in_out_manager,    ONLY: lwp, numout 
    4851      USE oce,               ONLY: tsn 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r10004 r10007  
    7878                                            zfer, zpds, zphd, zphn, zsil,   & 
    7979                                            zzme, zzmi 
    80       USE dom_oce,                    ONLY: e3t_0,                          & 
    81                                             gdept_0,                        & 
    82                                             gdepw_0,                        & 
    83                                             nday_year, nsec_day,            & 
     80      USE dom_oce,                    ONLY: e3t_0, gdept_0,  gdepw_0,       & 
     81                                            nday_year, nsec_day,            &  
    8482                                            nyear, nyear_len, ndastp,       & 
    8583                                            nsec_month,                     & 
    8684                                            rdt, tmask, mig, mjg, nimpp,    & 
    8785                                            njmpp  
     86#if defined key_vvl 
     87      USE dom_oce,                    ONLY: e3t_n, gdept_n,  gdepw_n 
     88#endif 
     89 
    8890      USE in_out_manager,             ONLY: lwp, numout, nn_date0 
    8991      USE iom,                        ONLY: lk_iomput 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/zooplankton.F90

    r10004 r10007  
    4242                                   zdet, zdtc, zphd, zphn, zzme, zzmi 
    4343      USE dom_oce,           ONLY: e3t_0, tmask 
     44#if defined key_vvl 
     45      USE dom_oce,           ONLY: e3t_n 
     46#endif 
    4447      USE par_kind,          ONLY: wp 
    4548      USE in_out_manager,    ONLY: lwp, numout 
  • branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/trcstat.F90

    r10004 r10007  
    2929   USE par_trc,           ONLY: jptra 
    3030   USE dom_oce,           ONLY: e3t_0, gdepw_0, tmask, e1e2t 
     31#if defined key_vvl 
     32   USE dom_oce,           ONLY: e3t_a, e3t_n, gdepw_n 
     33#endif 
    3134   !* MPP library                          
    3235   USE lib_mpp 
Note: See TracChangeset for help on using the changeset viewer.