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 3562 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90 – NEMO

Ignore:
Timestamp:
2012-11-15T17:17:48+01:00 (12 years ago)
Author:
rblod
Message:

Fix vvl and flux formulae, see ticket #952

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r3294 r3562  
    106106         hdivb(:,:,:) = 0._wp   ;   hdivn(:,:,:) = 0._wp 
    107107         ! 
    108          !                                       ! define e3u_b, e3v_b from e3t_b initialized in domzgr 
    109          CALL dom_vvl_2( nit000, fse3u_b(:,:,:), fse3v_b(:,:,:) ) 
    110          ! 
    111108         IF( cp_cfg == 'eel' ) THEN 
    112109            CALL istate_eel                      ! EEL   configuration : start from pre-defined U,V T-S fields 
     
    133130            ENDDO 
    134131         ENDIF 
     132         !                                       ! define e3u_b, e3v_b from e3t_b initialized in domzgr 
     133         CALL dom_vvl_2( nit000, fse3u_b(:,:,:), fse3v_b(:,:,:) ) 
    135134         !  
    136135      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.