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

Changeset 1715


Ignore:
Timestamp:
2009-11-05T16:18:26+01:00 (14 years ago)
Author:
smasson
Message:

move daymod public variables in dom_oce, see ticket:590

Location:
trunk/NEMO
Files:
52 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/C1D_SRC/diawri_c1d.F90

    r1581 r1715  
    2626   USE phycst          ! physical constants 
    2727   USE zdfmxl          ! mixed layer 
    28    USE daymod          ! calendar 
    2928   USE dianam          ! build name of file (routine) 
    3029   USE diawri 

  • trunk/NEMO/LIM_SRC_2/limdia_2.F90

    r1581 r1715  
    1616   !!   lim_dia_init_2 : initialization and namelist read 
    1717   !!---------------------------------------------------------------------- 
     18   USE dom_oce         ! ocean space and time domain 
    1819   USE phycst          !  
    1920   USE par_ice_2       ! ice parameters 
    2021   USE sbc_oce         ! surface boundary condition variables 
    21    USE daymod          ! 
    2222   USE dom_ice_2       ! 
    2323   USE ice_2           ! 

  • trunk/NEMO/LIM_SRC_2/limdmp_2.F90

    r1465 r1715  
    2020   USE dom_oce 
    2121   USE oce 
    22    USE daymod          ! calendar 
    2322   USE iom 
    2423    

  • trunk/NEMO/LIM_SRC_2/limrst_2.F90

    r1473 r1715  
    1616   !!   lim_rst_read_2  : read  the ice restart file  
    1717   !!---------------------------------------------------------------------- 
     18   USE dom_oce         ! ocean space and time domain 
    1819   USE ice_2 
    1920   USE sbc_oce 
    2021   USE sbc_ice 
    21    USE daymod 
    2222 
    2323   USE in_out_manager 

  • trunk/NEMO/LIM_SRC_2/limtrp_2.F90

    r1694 r1715  
    1414   USE phycst 
    1515   USE dom_oce 
    16    USE daymod 
    1716   USE in_out_manager  ! I/O manager 
    1817   USE dom_ice_2 

  • trunk/NEMO/LIM_SRC_2/limwri_2.F90

    r1482 r1715  
    2121   USE phycst 
    2222   USE dom_oce 
    23    USE daymod 
    2423   USE sbc_oce 
    2524   USE sbc_ice 

  • trunk/NEMO/LIM_SRC_3/limdia.F90

    r1581 r1715  
    1919   USE in_out_manager 
    2020   USE par_ice         ! ice parameters 
    21    USE daymod 
    2221   USE dom_ice 
    2322   USE ice 

  • trunk/NEMO/LIM_SRC_3/limrst.F90

    r1473 r1715  
    1919   USE sbc_oce         ! Surface boundary condition: ocean fields 
    2020   USE sbc_ice         ! Surface boundary condition: ice fields 
    21    USE daymod 
    2221   USE iom 
    2322 

  • trunk/NEMO/LIM_SRC_3/limtrp.F90

    r1465 r1715  
    1414   USE phycst 
    1515   USE dom_oce 
    16    USE daymod 
    1716   USE in_out_manager  ! I/O manager 
    1817   USE sbc_oce         ! Surface boundary condition: ocean fields 

  • trunk/NEMO/LIM_SRC_3/limupdate.F90

    r1701 r1715  
    2727   USE sbc_ice         ! Surface boundary condition: ice fields 
    2828   USE dom_ice 
    29    USE daymod 
    3029   USE phycst          ! Define parameters for the routines 
    3130   USE ice 

  • trunk/NEMO/LIM_SRC_3/limwri.F90

    r1469 r1715  
    2121   USE phycst 
    2222   USE dom_oce 
    23    USE daymod 
    2423   USE in_out_manager 
    2524   USE sbc_oce         ! Surface boundary condition: ocean fields 

  • trunk/NEMO/OFF_SRC/DIA/dianam.F90

    r1703 r1715  
    1515   USE phycst          ! physical constants 
    1616   USE in_out_manager  ! I/O manager 
    17    USE daymod          ! calendar 
    1817   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
    1918 

  • trunk/NEMO/OFF_SRC/DOM/domain.F90

    r1500 r1715  
    1515   USE phycst          ! physical constants 
    1616   USE in_out_manager  ! I/O manager 
    17    USE daymod          ! calendar 
    1817   USE lib_mpp         ! distributed memory computing library 
    1918 

  • trunk/NEMO/OFF_SRC/DOM/domrea_dimg.h90

    r1152 r1715  
    3737      !! * Modules used 
    3838      USE lib_mpp 
    39       USE daymod 
     39      USE dom_oce         ! ocean space and time domain 
    4040 
    4141      !! * Local declarations 

  • trunk/NEMO/OFF_SRC/istate.F90

    r1152 r1715  
    1111   USE oce             ! ocean dynamics and active tracers  
    1212   USE dom_oce         ! ocean space and time domain  
    13    USE daymod          !  
    1413   USE ldftra_oce      ! ocean active tracers: lateral physics 
    1514   USE zdf_oce         ! ocean vertical physics 

  • trunk/NEMO/OFF_SRC/opa.F90

    r1497 r1715  
    1111   USE dom_oce         ! ocean space domain variables 
    1212   USE oce             ! dynamics and tracers variables 
    13    USE daymod          ! calendar 
    1413   USE in_out_manager  ! I/O manager 
    1514   USE lib_mpp         ! distributed memory computing 

  • trunk/NEMO/OPA_SRC/BDY/bdydta.F90

    r1713 r1715  
    1919   USE oce             ! ocean dynamics and tracers 
    2020   USE dom_oce         ! ocean space and time domain 
    21    USE daymod          ! calendar 
    2221   USE phycst          ! physical constants 
    2322   USE bdy_oce         ! ocean open boundary conditions 

  • trunk/NEMO/OPA_SRC/BDY/bdytides.F90

    r1601 r1715  
    3131   USE bdy_par         ! Unstructured boundary parameters 
    3232   USE bdy_oce         ! ocean open boundary conditions 
    33    USE daymod          ! calendar 
    3433 
    3534   IMPLICIT NONE 

  • trunk/NEMO/OPA_SRC/DIA/diadimg.F90

    r1685 r1715  
    1010   USE dom_oce         ! ocean space and time domain 
    1111   USE in_out_manager  ! I/O manager 
    12    USE daymod          ! calendar 
    1312 
    1413   IMPLICIT NONE 

  • trunk/NEMO/OPA_SRC/DIA/diagap.F90

    r1685 r1715  
    1919   USE dtatem          ! ??? 
    2020   USE dtasal          ! ??? 
    21    USE daymod          ! calendar 
    2221   USE dianam          ! build name of file (routine) 
    2322   USE lib_mpp         ! distributed memory computing library 

  • trunk/NEMO/OPA_SRC/DIA/dianam.F90

    r1700 r1715  
    1515   USE phycst          ! physical constants 
    1616   USE in_out_manager  ! I/O manager 
    17    USE daymod          ! calendar 
    1817   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
    1918 

  • trunk/NEMO/OPA_SRC/DIA/diaptr.F90

    r1686 r1715  
    2020   USE oce           ! ocean dynamics and active tracers 
    2121   USE dom_oce       ! ocean space and time domain 
    22    USE daymod        ! calandar 
    2322   USE phycst        ! physical constants 
    2423   USE ldftra_oce    ! ocean active tracers: lateral physics 

  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r1649 r1715  
    1818   USE phycst          ! physical constants 
    1919   USE zdfmxl          ! mixed layer 
    20    USE daymod          ! calendar 
    2120   USE dianam          ! build name of file (routine) 
    2221   USE zdfddm          ! vertical  physics: double diffusion 

  • trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

    r1601 r1715  
    6161   !!---------------------------------------------------------------------- 
    6262   !! space domain parameters 
    63    !! ----------------------- 
     63   !!---------------------------------------------------------------------- 
    6464   LOGICAL, PUBLIC ::   lzoom      =  .FALSE.   !: zoom flag 
    6565   LOGICAL, PUBLIC ::   lzoom_e    =  .FALSE.   !: East  zoom type flag 
    … …  
    115115   !!---------------------------------------------------------------------- 
    116116   !! vertical coordinate and scale factors 
    117    !! -------------------------------------- 
     117   !! --------------------------------------------------------------------- 
    118118   !                                           !!* Namelist namzgr : vertical coordinate * 
    119119   LOGICAL, PUBLIC ::   ln_zco     =  .TRUE.    !: z-coordinate - full step 
    … …  
    177177   !!---------------------------------------------------------------------- 
    178178   !! masks, bathymetry 
    179    !! ----------------- 
     179   !! --------------------------------------------------------------------- 
    180180   INTEGER , PUBLIC, DIMENSION(jpi,jpj) ::   mbathy    !: number of ocean level (=0, 1, ... , jpk-1) 
    181181   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   bathy     !: ocean depth (meters) 
    … …  
    193193 
    194194   !!---------------------------------------------------------------------- 
     195   !! calendar variables 
     196   !! --------------------------------------------------------------------- 
     197   INTEGER , PUBLIC ::   nyear       !: current year 
     198   INTEGER , PUBLIC ::   nmonth      !: current month 
     199   INTEGER , PUBLIC ::   nday        !: current day of the month 
     200   INTEGER , PUBLIC ::   ndastp      !: time step date in yyyymmdd format 
     201   INTEGER , PUBLIC ::   nday_year   !: current day counted from jan 1st of the current year 
     202   REAL(wp), PUBLIC ::   rsec_year   !: current time step counted in second since 00h jan 1st of the current year 
     203   REAL(wp), PUBLIC ::   rsec_month  !: current time step counted in second since 00h 1st day of the current month 
     204   REAL(wp), PUBLIC ::   rsec_day    !: current time step counted in second since 00h of the current day 
     205   REAL(wp), PUBLIC ::   fjulday     !: julian day  
     206   REAL(wp), PUBLIC ::   adatrj      !: number of elapsed days since the begining of the whole simulation 
     207   !                                 !: (cumulative duration of previous runs that may have used different time-step size) 
     208   INTEGER , PUBLIC, DIMENSION(0: 1) ::   nyear_len    !: length in days of the previous/current year 
     209   INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_len   !: length in days of the months of the current year 
     210   REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_half  !: second since Jan 1st 0h of the current year and the half of the months 
     211   REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_end   !: second since Jan 1st 0h of the current year and the end of the months 
     212   REAL(wp), PUBLIC                  ::   sec1jan000   !: second since Jan 1st 0h of nit000 year and Jan 1st 0h the current year 
     213 
     214   !!---------------------------------------------------------------------- 
    195215   !! agrif domain 
    196216   !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/DTA/dtasal.F90

    r1609 r1715  
    1515   USE in_out_manager  ! I/O manager 
    1616   USE phycst          ! physical constants 
    17    USE daymod          ! calendar 
    1817#if defined key_orca_lev10 
    1918   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 

  • trunk/NEMO/OPA_SRC/DTA/dtatem.F90

    r1609 r1715  
    1515   USE in_out_manager  ! I/O manager 
    1616   USE phycst          ! physical constants 
    17    USE daymod          ! calendar 
    1817#if defined key_orca_lev10 
    1918   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 

  • trunk/NEMO/OPA_SRC/FLO/flowri.F90

    r1685 r1715  
    1919   USE dom_oce         ! ocean space and time domain 
    2020   USE lib_mpp         ! distribued memory computing library 
    21    USE daymod 
    2221   USE in_out_manager  ! I/O manager 
    2322 

  • trunk/NEMO/OPA_SRC/OBC/obcdta.F90

    r1528 r1715  
    1616  USE phycst          ! physical constants 
    1717  USE obc_oce         ! ocean open boundary conditions 
    18   USE daymod          ! calendar 
    1918  USE in_out_manager  ! I/O logical units 
    2019  USE lib_mpp         ! distributed memory computing 

  • trunk/NEMO/OPA_SRC/OBC/obcrst.F90

    r1581 r1715  
    1313   USE phycst          ! physical constants 
    1414   USE obc_oce         ! ocean open boundary conditions 
    15    USE daymod          ! calendar 
    1615   USE lib_mpp         ! for mppobc 
    1716   USE in_out_manager  ! I/O manager 

  • trunk/NEMO/OPA_SRC/SBC/cpl_oasis4.F90

    r1281 r1715  
    3838   USE lib_mpp, only : mpprecv            ! message passing 
    3939#endif 
    40    USE daymod                       ! date and time info 
    4140   USE dom_oce                      ! ocean space and time domain 
    4241   USE in_out_manager               ! I/O manager 

  • trunk/NEMO/OPA_SRC/SBC/fldread.F90

    r1702 r1715  
    1616   USE dom_oce         ! ocean space and time domain 
    1717   USE phycst          ! ??? 
    18    USE daymod          ! calendar 
    1918   USE in_out_manager  ! I/O manager 
    2019   USE iom             ! I/O manager library 

  • trunk/NEMO/OPA_SRC/SBC/sbcana.F90

    r1695 r1715  
    1616   USE sbc_oce         ! Surface boundary condition: ocean fields 
    1717   USE phycst          ! physical constants 
    18    USE daymod          ! calendar 
    1918   USE in_out_manager  ! I/O manager 
    2019   USE lib_mpp         ! distribued memory computing library 

  • trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r1695 r1715  
    2222   USE dom_oce         ! ocean space and time domain 
    2323   USE phycst          ! physical constants 
    24    USE daymod          ! calendar 
    2524   USE fldread         ! read input fields 
    2625   USE sbc_oce         ! Surface boundary condition: ocean fields 

  • trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r1705 r1715  
    2424   USE dom_oce         ! ocean space and time domain 
    2525   USE phycst          ! physical constants 
    26    USE daymod          ! calendar 
    2726   USE fldread         ! read input fields 
    2827   USE sbc_oce         ! Surface boundary condition: ocean fields 

  • trunk/NEMO/OPA_SRC/SBC/sbcflx.F90

    r1695 r1715  
    2929   USE sbc_oce         ! Surface boundary condition: ocean fields 
    3030   USE phycst          ! physical constants 
    31    USE daymod          ! calendar 
    3231   USE fldread         ! read input fields 
    3332   USE iom             ! IOM library 

  • trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r1581 r1715  
    2020   USE sbcrnf          ! ocean runoffs 
    2121   USE sbcssr          ! SS damping terms 
    22    USE daymod          ! calendar 
    2322   USE in_out_manager  ! I/O manager 
    2423   USE lib_mpp         ! distribued memory computing library 

  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r1695 r1715  
    3333   USE albedo 
    3434 
    35    USE daymod          ! day calendar 
    3635   USE phycst          ! Define parameters for the routines 
    3736   USE eosbn2          ! equation of state 

  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1695 r1715  
    3232   USE albedo 
    3333 
    34    USE daymod          ! day calendar 
    3534   USE phycst          ! Define parameters for the routines 
    3635   USE eosbn2          ! equation of state 

  • trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

    r1705 r1715  
    1414   USE oce             ! ocean dynamics and tracers 
    1515   USE dom_oce         ! ocean space and time domain 
    16    USE daymod          ! calendar 
    1716   USE phycst          ! physical constants 
    1817 

  • trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r1601 r1715  
    1717   USE dom_oce         ! ocean space and time domain 
    1818   USE phycst          ! physical constants 
    19    USE dom_oce         ! ocean domain variables 
    2019   USE sbc_oce         ! surface boundary condition variables 
    2120   USE fldread         ! ??? 
    2221   USE in_out_manager  ! I/O manager 
    23    USE daymod          ! calendar 
    2422   USE iom             ! I/O module 
    2523 

  • trunk/NEMO/OPA_SRC/SBC/sbcssm.F90

    r1267 r1715  
    1313   USE oce             ! ocean dynamics and tracers 
    1414   USE dom_oce         ! ocean space and time domain 
    15    USE daymod          ! calendar 
    1615   USE sbc_oce         ! Surface boundary condition: ocean fields 
    1716   USE prtctl          ! Print control                    (prt_ctl routine) 

  • trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

    r1601 r1715  
    1515   USE sbc_oce         ! surface boundary condition 
    1616   USE phycst          ! physical constants 
    17    USE daymod          ! calendar 
    1817   USE sbcrnf          ! surface boundary condition : runoffs 
    1918   USE fldread         ! read input fields 

  • trunk/NEMO/OPA_SRC/TRD/trdmld.F90

    r1685 r1715  
    2727   USE in_out_manager  ! I/O manager 
    2828   USE phycst          ! Define parameters for the routines 
    29    USE daymod          ! calendar 
    3029   USE dianam          ! build the name of file (routine) 
    3130   USE ldfslp          ! iso-neutral slopes  

  • trunk/NEMO/OPA_SRC/TRD/trdmld_rst.F90

    r1473 r1715  
    1111   USE trdmod_oce      ! ocean variables for trend diagnostics (i.e. icp/mixed-layer/vorticity) 
    1212   USE in_out_manager  ! I/O manager 
    13    USE daymod          ! calendar 
    1413   USE iom             ! I/O module 
    1514   USE restart         ! only for lrst_oce 

  • trunk/NEMO/OPA_SRC/TRD/trdvor.F90

    r1601 r1715  
    2323   USE phycst          ! Define parameters for the routines 
    2424   USE ldfdyn_oce      ! ocean active tracers: lateral physics 
    25    USE daymod          ! calandar 
    2625   USE dianam          ! build the name of file (routine) 
    2726   USE zdfmxl          ! mixed layer depth 

  • trunk/NEMO/OPA_SRC/daymod.F90

    r1713 r1715  
    4040   PUBLIC   day_init   ! called by istate.F90 
    4141 
    42    INTEGER , PUBLIC ::   nyear       !: current year 
    43    INTEGER , PUBLIC ::   nmonth      !: current month 
    44    INTEGER , PUBLIC ::   nday        !: current day of the month 
    45    INTEGER , PUBLIC ::   ndastp      !: time step date in yyyymmdd format 
    46    INTEGER , PUBLIC ::   nday_year   !: current day counted from jan 1st of the current year 
    47    REAL(wp), PUBLIC ::   rsec_year   !: current time step counted in second since 00h jan 1st of the current year 
    48    REAL(wp), PUBLIC ::   rsec_month  !: current time step counted in second since 00h 1st day of the current month 
    49    REAL(wp), PUBLIC ::   rsec_day    !: current time step counted in second since 00h of the current day 
    50  
    51    REAL(wp), PUBLIC ::   fjulday     !: julian day  
    52    REAL(wp), PUBLIC ::   adatrj      !: number of elapsed days since the begining of the whole simulation 
    53    !                                 !: (cumulative duration of previous runs that may have used different time-step size) 
    54    INTEGER , PUBLIC, DIMENSION(0: 1) ::   nyear_len    !: length in days of the previous/current year 
    55    INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_len   !: length in days of the months of the current year 
    56    REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_half  !: second since Jan 1st 0h of the current year and the half of the months 
    57    REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_end   !: second since Jan 1st 0h of the current year and the end of the months 
    58    REAL(wp), PUBLIC                  ::   sec1jan000   !: second since Jan 1st 0h of nit000 year and Jan 1st 0h the current year 
    59  
    6042   !!---------------------------------------------------------------------- 
    6143   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  

  • trunk/NEMO/OPA_SRC/opa.F90

    r1685 r1715  
    3737   USE sbc_oce         ! surface boundary condition: ocean 
    3838   USE trdmod_oce      ! ocean variables trends 
    39    USE daymod          ! calendar 
    4039   USE domcfg          ! domain configuration               (dom_cfg routine) 
    4140   USE mppini          ! shared/distributed memory setting (mpp_init routine) 

  • trunk/NEMO/TOP_SRC/PISCES/p4zint.F90

    r1352 r1715  
    1313   !!   p4z_int        :  interpolation and computation of various accessory fields 
    1414   !!---------------------------------------------------------------------- 
     15   USE dom_oce         ! ocean space and time domain variables  
    1516   USE oce_trc         ! 
    1617   USE trc 

  • trunk/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90

    r1542 r1715  
    1313   !!   trcsms_pisces        :  Time loop of passive tracers sms 
    1414   !!---------------------------------------------------------------------- 
     15   USE dom_oce         ! ocean space and time domain variables  
    1516   USE oce_trc         ! 
    1617   USE trc 

  • trunk/NEMO/TOP_SRC/SED/sed.F90

    r1329 r1715  
    2121      rdt      =>   rdt         !: time step for the dynamics 
    2222 
    23    USE daymod , ONLY :            & 
    2423      nyear     =>   nyear    ,   & !: Current year 
    2524      nmonth    =>   nmonth   ,   & !: Current month 

  • trunk/NEMO/TOP_SRC/oce_trc.F90

    r1644 r1715  
    139139   USE dom_oce , ONLY :   atfp1     =>   atfp1       !: asselin time filter coeff. (atfp1= 1-2*atfp) 
    140140   USE dom_oce , ONLY :   rdttra    =>   rdttra      !: vertical profile of tracer time step 
    141    USE daymod  , ONLY :   ndastp    =>   ndastp      !: time step date in year/month/day aammjj 
    142    USE daymod  , ONLY :   nday_year =>   nday_year   !: curent day counted from jan 1st of the current year 
    143    USE daymod  , ONLY :   nyear     =>   nyear       !: Current year 
    144    USE daymod  , ONLY :   nmonth    =>   nmonth      !: Current month 
    145    USE daymod  , ONLY :   nday      =>   nday        !: Current day 
    146    USE daymod  , ONLY :   adatrj    =>   adatrj      !: number of elapsed days since the begining of the run 
    147141   !                                                 !: it is the accumulated duration of previous runs 
    148142   !                                                 !: that may have been run with different time steps. 

  • trunk/NEMO/TOP_SRC/trcdia.F90

    r1656 r1715  
    2121   !! trcdib_wr   : outputs of biological fields 
    2222   !!---------------------------------------------------------------------- 
     23   USE dom_oce         ! ocean space and time domain variables  
    2324   USE oce_trc 
    2425   USE trc 
Note: See TracChangeset for help on using the changeset viewer.