Ignore:
Timestamp:
2017-04-23T09:30:41+02:00 (3 years ago)
Author:
gm
Message:

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90

    r6140 r7953  
    8484         vn_crs   (:,:,:  ) = 0._wp    ! v-velocity 
    8585         wn_crs   (:,:,:  ) = 0._wp    ! w 
    86          avt_crs  (:,:,:  ) = 0._wp    ! avt 
     86         avs_crs  (:,:,:  ) = 0._wp    ! avt 
    8787         hdivn_crs(:,:,:  ) = 0._wp    ! hdiv 
    8888         rke_crs  (:,:,:  ) = 0._wp    ! rke 
     
    200200      SELECT CASE ( nn_crs_kz ) 
    201201         CASE ( 0 ) 
    202             CALL crs_dom_ope( avt, 'VOL', 'W', tmask, avt_crs, p_e12=e1e2t, p_e3=ze3w, psgn=1.0 ) 
     202            CALL crs_dom_ope( avt, 'VOL', 'W', tmask, avs_crs, p_e12=e1e2t, p_e3=ze3w, psgn=1.0 ) 
    203203         CASE ( 1 ) 
    204             CALL crs_dom_ope( avt, 'MAX', 'W', tmask, avt_crs, p_e12=e1e2t, p_e3=ze3w, psgn=1.0 ) 
     204            CALL crs_dom_ope( avt, 'MAX', 'W', tmask, avs_crs, p_e12=e1e2t, p_e3=ze3w, psgn=1.0 ) 
    205205         CASE ( 2 ) 
    206             CALL crs_dom_ope( avt, 'MIN', 'W', tmask, avt_crs, p_e12=e1e2t, p_e3=ze3w, psgn=1.0 ) 
     206            CALL crs_dom_ope( avt, 'MIN', 'W', tmask, avs_crs, p_e12=e1e2t, p_e3=ze3w, psgn=1.0 ) 
    207207      END SELECT 
    208208      ! 
    209       CALL iom_put( "avt", avt_crs )   !  Kz 
     209      CALL iom_put( "avt", avs_crs )   !  Kz 
    210210       
    211211      !  sbc fields   
Note: See TracChangeset for help on using the changeset viewer.