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 3383 for branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90 – NEMO

Ignore:
Timestamp:
2012-05-04T16:06:37+02:00 (12 years ago)
Author:
sga
Message:

NEMO branch dev_r3337_NOCS10_ICB: rationalise date calculation (which also helps with key_agrif problems)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90

    r3381 r3383  
    8080   !                                                             !!! parameters controlling iceberg characteristics and modelling 
    8181   REAL(wp)                            ::   berg_dt                   !: Time-step between iceberg CALLs (should make adaptive?) 
    82    INTEGER                             ::   current_year              !:  
    83    REAL(wp)                            ::   current_yearday           !: 1.00-365.99 
    8482   REAL(wp), DIMENSION(:), ALLOCATABLE ::   first_width, first_length !:  
    8583   LOGICAL                             ::   l_restarted_bergs=.FALSE.  ! Indicate whether we read state from a restart or not 
Note: See TracChangeset for help on using the changeset viewer.