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 10020 – NEMO

Changeset 10020


Ignore:
Timestamp:
2018-07-31T17:47:55+02:00 (6 years ago)
Author:
marc
Message:

GMED ticket 406. CPP key fixes.

Location:
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO
Files:
19 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r9830 r10020  
    253253      CALL iom_put( "avt" , avt                        )    ! T vert. eddy diff. coef. 
    254254      CALL iom_put( "avm" , avmu                       )    ! T vert. eddy visc. coef. 
     255#if defined key_zdftke 
    255256      IF( lk_zdftke ) THEN    
    256257         CALL iom_put( "tke"      , en                               )    ! TKE budget: Turbulent Kinetic Energy    
    257258         CALL iom_put( "tke_niw"  , e_niw                            )    ! TKE budget: Near-inertial waves    
    258259      ENDIF  
     260#endif 
    259261      CALL iom_put( "avs" , fsavs(:,:,:)               )    ! S vert. eddy diff. coef. (useful only with key_zdfddm) 
    260262                                                            ! Log of eddy diff coef 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r7771 r10020  
    3333   USE wrk_nemo       ! Memory Allocation 
    3434   USE timing         ! Timing 
     35   USE phycst         ! Physical constants 
    3536   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3637   USE iom 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

    r7179 r10020  
    195195                    CALL ken_p2k( kt , zke ) 
    196196                      CALL iom_put( "ketrd_convP2K", zke )     ! conversion -rau*g*w 
     197# if defined key_ldfslp || key_esopa 
    197198        CASE( jpdyn_eivke ) 
    198199            ! CMIP6 diagnostic tknebto = tendency of KE from 
     
    216217            CALL iom_put("ketrd_eiv", zke2d) 
    217218            CALL wrk_dealloc( jpi, jpj, zke2d ) 
     219#endif 
    218220         ! 
    219221      END SELECT 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r9385 r10020  
    6262# endif 
    6363                                   zchd, zchn, zdin, zsil 
    64       USE dom_oce,           ONLY: e3t_0, e3t_n, gphit, tmask, mig, mjg 
    65 # if defined key_iomput 
     64      USE dom_oce,           ONLY: e3t_0, gphit, tmask, mig, mjg 
     65# if defined key_vvl 
     66      USE dom_oce,           ONLY: e3t_n 
     67# endif 
    6668      USE iom,               ONLY: lk_iomput 
    67 # endif 
    6869      USE in_out_manager,    ONLY: lwp, numout 
    6970      USE par_kind,          ONLY: wp 
     
    185186               call trc_rst_dia_stat(zpho(:,:), 'zpho') 
    186187#   endif 
     188#  if defined key_axy_carbchem 
     189#   if defined key_mocsy 
    187190      DO jj = 2,jpjm1 
    188191         DO ji = 2,jpim1 
    189192            if (tmask(ji,jj,1) == 1) then 
    190193               !! 
    191 #  if defined key_axy_carbchem 
    192 #   if defined key_mocsy 
    193194               !! Jpalm -- 12-09-2017 -- add extra check after reccurent 
    194195               !!          carbonate failure in the coupled run. 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90

    r8442 r10020  
    3131      !!------------------------------------------------------------------- 
    3232      USE bio_medusa_mod 
    33       USE dom_oce,           ONLY: e3t_0, e3t_n, mbathy, tmask 
     33      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 
     
    718721CONTAINS 
    719722   SUBROUTINE bio_med_diag_iomput( )                    ! Empty routine 
     723      IMPLICIT NONE 
    720724      WRITE(*,*) 'bio_med_diag_iomput: You should not have seen this print! error?' 
    721725   END SUBROUTINE bio_med_diag_iomput 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90

    r8442 r10020  
    3232      USE bio_med_diag_iomput_mod,  ONLY: bio_med_diag_iomput 
    3333      USE bio_medusa_mod 
    34       USE dom_oce,                  ONLY: e3t_0, e3t_n,                  & 
    35                                           gdepw_0, gdepw_n, tmask 
     34      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 
    3638      USE in_out_manager,           ONLY: lwp, numout 
    37 # if defined key_iomput 
    3839      USE iom,                      ONLY: lk_iomput 
    39 # endif 
    4040      USE par_oce,                  ONLY: jpim1, jpjm1 
    4141      USE sms_medusa,               ONLY: xrfn, xthetapd, xthetapn,      & 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

    r9114 r10020  
    3535      USE dom_oce,           ONLY: tmask 
    3636      USE in_out_manager,    ONLY: lwp, numout 
    37 # if defined key_iomput 
    3837      USE iom,               ONLY: iom_put 
    39 # endif 
    4038      USE lbclnk,            ONLY: lbc_lnk 
    4139      USE oce,               ONLY: CO2Flux_out_cpl, DMS_out_cpl 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r9114 r10020  
    3333      !!---------------------------------------------------------------------- 
    3434      USE bio_medusa_mod 
    35       USE dom_oce,           ONLY: atfp, atfp1, neuler, rdt, e3t_n, tmask 
     35      USE dom_oce,           ONLY: atfp, atfp1, neuler, rdt, tmask 
    3636      USE in_out_manager,    ONLY: lwp, numout 
    37 # if defined key_iomput 
    38       USE iom,               ONLY: iom_put, lk_iomput 
    39 # endif 
     37      USE iom,               ONLY: iom_put 
    4038      USE lbclnk,            ONLY: lbc_lnk 
    4139      USE oce,               ONLY: chloro_out_cpl  
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r9257 r10020  
    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 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_update.F90

    r9975 r10020  
    7171# endif 
    7272                                   zpds, zphd, zphn 
    73       USE dom_oce,           ONLY: e3t_0, e3t_n, gphit, mbathy, tmask 
     73      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_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/carb_chem.F90

    r9385 r10020  
    4040# endif 
    4141                                   zalk, zdic, zsal, zsil, ztmp  
    42       USE dom_oce,           ONLY: gdept_0, gdept_n, gdepw_0, gdepw_n,    & 
    43                                    gphit, mbathy, tmask 
     42      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 
    4446      USE in_out_manager,    ONLY: lwp, numout 
    4547      USE oce,               ONLY: PCO2a_in_cpl, tsb, tsn 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus.F90

    r8521 r10020  
    4545                                        fun_T, fun_Q10, zdet, zdtc 
    4646      USE detritus_fast_sink_mod, ONLY: detritus_fast_sink 
    47       USE dom_oce,                ONLY: mbathy, e3t_0, e3t_n, gphit, tmask 
     47      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_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/detritus_fast_sink.F90

    r8441 r10020  
    6666                                   idf, idfval,                            & 
    6767                                   zdet, zdtc 
    68       USE dom_oce,           ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n,         & 
    69                                    gphit, mbathy, tmask 
     68      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 
    7072      USE in_out_manager,    ONLY: lwp, numout 
    7173      USE oce,               ONLY: tsn 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/iron_chem_scav.F90

    r8441 r10020  
    3535                                   zdet, zfer, zphd, zphn, zzme, zzmi,    & 
    3636                                   idf, idfval                           
    37       USE dom_oce,           ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n,        & 
    38                                    mbathy, tmask 
     37      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 
    3941      USE par_kind,          ONLY: wp 
    4042      USE in_out_manager,    ONLY: lwp, numout 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/phytoplankton.F90

    r9114 r10020  
    4444                                   zfer, zpds, zphd, zphn, zsil,         & 
    4545                                   zzme, zzmi, fchl_ml 
    46       USE dom_oce,           ONLY: e3t_0, e3t_n, gdepw_0, gdepw_n, tmask 
     46      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_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r9975 r10020  
    7878                                            zfer, zpds, zphd, zphn, zsil,   & 
    7979                                            zzme, zzmi 
    80       USE dom_oce,                    ONLY: e3t_0, e3t_n,                   & 
    81                                             gdept_0, gdept_n,               & 
    82                                             gdepw_0, gdepw_n,               & 
    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 
    89 # if defined key_iomput 
    9091      USE iom,                        ONLY: lk_iomput 
    91 # endif 
    9292      USE lbclnk,                     ONLY: lbc_lnk 
    9393      USE lib_mpp,                    ONLY: mpp_max, mpp_maxloc,            &  
     
    10021002CONTAINS 
    10031003   SUBROUTINE trc_bio_medusa( kt )                   ! Empty routine 
     1004      IMPLICIT NONE 
    10041005      INTEGER, INTENT( in ) ::   kt 
    10051006      WRITE(*,*) 'trc_bio_medusa: You should not have seen this print! error?', kt 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/zooplankton.F90

    r8441 r10020  
    4141                                   idf, idfval,                          & 
    4242                                   zdet, zdtc, zphd, zphn, zzme, zzmi 
    43       USE dom_oce,           ONLY: e3t_0, e3t_n, tmask 
     43      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_package/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r9262 r10020  
    110110   END TYPE DIAG 
    111111 
    112 #if defined key_medusa && defined key_iomput 
     112#if defined key_medusa 
    113113   TYPE, PUBLIC :: BDIAG 
    114114      LOGICAL              :: dgsave 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcstat.F90

    r9163 r10020  
    2828   USE par_oce,           ONLY: jpi, jpj 
    2929   USE par_trc,           ONLY: jptra 
    30    USE dom_oce,           ONLY: e3t_0, e3t_a, e3t_n, gdepw_0, gdepw_n,     & 
    31                           tmask, e1e2t 
     30   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 
    3234   !* MPP library                          
    3335   USE lib_mpp 
Note: See TracChangeset for help on using the changeset viewer.