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 7351 for branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90 – NEMO

Ignore:
Timestamp:
2016-11-28T17:04:10+01:00 (7 years ago)
Author:
emanuelaclementi
Message:

ticket #1805 step 3: /2016/dev_INGV_UKMO_2016 aligned to the trunk at revision 7161

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r5643 r7351  
    1212 
    1313   !!---------------------------------------------------------------------- 
    14    !!   sbc_fwb      : freshwater budget for global ocean configurations 
    15    !!                  in free surface and forced mode 
    16    !!---------------------------------------------------------------------- 
    17    USE oce             ! ocean dynamics and tracers 
    18    USE dom_oce         ! ocean space and time domain 
    19    USE sbc_oce         ! surface ocean boundary condition 
    20    USE phycst          ! physical constants 
    21    USE sbcrnf          ! ocean runoffs 
    22    USE sbcisf          ! ice shelf melting contribution 
    23    USE sbcssr          ! SS damping terms 
    24    USE in_out_manager  ! I/O manager 
    25    USE lib_mpp         ! distribued memory computing library 
    26    USE wrk_nemo        ! work arrays 
    27    USE timing          ! Timing 
    28    USE lbclnk          ! ocean lateral boundary conditions 
    29    USE lib_fortran 
     14   !!   sbc_fwb       : freshwater budget for global ocean configurations (free surface & forced mode) 
     15   !!---------------------------------------------------------------------- 
     16   USE oce            ! ocean dynamics and tracers 
     17   USE dom_oce        ! ocean space and time domain 
     18   USE sbc_oce        ! surface ocean boundary condition 
     19   USE phycst         ! physical constants 
     20   USE sbcrnf         ! ocean runoffs 
     21   USE sbcisf         ! ice shelf melting contribution 
     22   USE sbcssr         ! Sea-Surface damping terms 
     23   ! 
     24   USE in_out_manager ! I/O manager 
     25   USE lib_mpp        ! distribued memory computing library 
     26   USE wrk_nemo       ! work arrays 
     27   USE timing         ! Timing 
     28   USE lbclnk         ! ocean lateral boundary conditions 
     29   USE lib_fortran    !  
    3030 
    3131   IMPLICIT NONE 
    … …  
    4040 
    4141   !! * Substitutions 
    42 #  include "domzgr_substitute.h90" 
    4342#  include "vectopt_loop_substitute.h90" 
    4443   !!---------------------------------------------------------------------- 
    … …  
    129128         ENDIF    
    130129         !                                         ! Update fwfold if new year start 
    131          ikty = 365 * 86400 / rdttra(1)    !!bug  use of 365 days leap year or 360d year !!!!!!! 
     130         ikty = 365 * 86400 / rdt                  !!bug  use of 365 days leap year or 360d year !!!!!!! 
    132131         IF( MOD( kt, ikty ) == 0 ) THEN 
    133132            a_fwb_b = a_fwb                           ! mean sea level taking into account the ice+snow 
Note: See TracChangeset for help on using the changeset viewer.