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 14915 for NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/C1D/dtauvd.F90 – NEMO

Ignore:
Timestamp:
2021-05-27T17:21:14+02:00 (3 years ago)
Author:
gsamson
Message:

minimum set of bugfixes and changes to get C1D_PAPA compiling and running with MPI; ticket #2680

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/C1D/dtauvd.F90

    r13497 r14915  
    2626   PUBLIC   dta_uvd        ! called by istate.F90 and dyndmp.90 
    2727 
    28    LOGICAL , PUBLIC ::   ln_uvd_init     ! Flag to initialise with U & V current data 
    29    LOGICAL , PUBLIC ::   ln_uvd_dyndmp   ! Flag for Newtonian damping toward U & V current data 
     28   LOGICAL , PUBLIC ::   ln_uvd_init   = .FALSE.   ! Flag to initialise with U & V current data 
     29   LOGICAL , PUBLIC ::   ln_uvd_dyndmp = .FALSE.   ! Flag for Newtonian damping toward U & V current data 
    3030 
    3131   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_uvd   ! structure for input U & V current (file information and data) 
Note: See TracChangeset for help on using the changeset viewer.