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 4245 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90 – NEMO

Ignore:
Timestamp:
2013-11-19T12:19:21+01:00 (10 years ago)
Author:
cetlod
Message:

dev_locean_cmcc_ingv_ukmo_merc : merge in the MERC_UKMO dev branch with trunk rev 4119

File:
1 copied

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90

    r4244 r4245  
    3333   PUBLIC   dyn_dmp      ! routine called by step_c1d.F90 
    3434 
    35    LOGICAL, PUBLIC ::   ln_dyndmp = .TRUE.                             ! Flag for Newtonian damping 
     35   LOGICAL, PUBLIC ::   ln_dyndmp           ! Flag for Newtonian damping 
    3636 
    3737   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  utrdmp    ! damping U current trend (m/s2) 
    … …  
    7373      !!---------------------------------------------------------------------- 
    7474      NAMELIST/namc1d_dyndmp/ ln_dyndmp 
    75       !!---------------------------------------------------------------------- 
    76  
    77       REWIND ( numnam )                      !==   read namelist namc1d_dyndmp : momentum damping flag     ==! 
    78       READ   ( numnam, namc1d_dyndmp )       !==   (namelist of namtra_dmp is used for other parameters)   ==! 
     75      INTEGER :: ios 
     76      !!---------------------------------------------------------------------- 
     77 
     78      REWIND( numnam_ref )              ! Namelist namc1d_dyndmp in reference namelist :  
     79      READ  ( numnam_ref, namc1d_dyndmp, IOSTAT = ios, ERR = 901) 
     80901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in reference namelist', lwp ) 
     81 
     82      REWIND( numnam_cfg )              ! Namelist namc1d_dyndmp in configuration namelist : Parameters of the run 
     83      READ  ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 
     84902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist', lwp ) 
     85      WRITE ( numond, namc1d_dyndmp ) 
    7986 
    8087      IF(lwp) THEN                           ! control print 
Note: See TracChangeset for help on using the changeset viewer.