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 3952 for branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90 – NEMO

Ignore:
Timestamp:
2013-07-02T15:20:13+02:00 (11 years ago)
Author:
flavoni
Message:

ok for LIM2, still reproducibility error on LIM3 case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r3938 r3952  
    124124       
    125125      ! add ssh if not vvl 
    126 #ifndef key_vvl 
     126#if ! defined key_vvl 
    127127     zdiff_v2 = zdiff_v2 + zdiff_v1 
    128128     zdiff_hc = zdiff_hc + glob_sum( zsurf(:,:) * ( sshn(:,:) * tsn(:,:,1,jp_tem)   & 
     
    149149      ENDDO 
    150150      ! add ssh if not vvl 
    151 #ifndef key_vvl 
     151#if ! defined key_vvl 
    152152     z_v2 = z_v2 + z_v1 
    153153     z_hc = z_hc + glob_sum( zsurf(:,:) * sshn(:,:) * tsn(:,:,1,jp_tem) ) 
     
    307307          frc_t = 0._wp                                            
    308308          frc_s = 0._wp                                                   
    309        ENDIF    
     309       ENDIF 
    310310 
    311311     ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
Note: See TracChangeset for help on using the changeset viewer.