Ignore:
Timestamp:
2017-09-12T20:46:13+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part6 - one more round

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_lac.F90

    r8514 r8517  
    8383      
    8484      REAL(wp) ::   zv_newfra 
    85       REAL(wp) ::   zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b ! conservation check 
    8685   
    8786      INTEGER , DIMENSION(jpij) ::   jcat        ! indexes of categories where new ice grows 
     
    113112      !!-----------------------------------------------------------------------! 
    114113 
    115       IF( ln_icediachk ) CALL ice_cons_hsm(0, 'icethd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     114      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icethd_lac', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) 
    116115 
    117116      CALL ice_var_agg(1) 
     
    479478      ENDIF ! nidx > 0 
    480479      ! 
    481       IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icethd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     480      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icethd_lac', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) 
    482481      ! 
    483482   END SUBROUTINE ice_thd_lac 
Note: See TracChangeset for help on using the changeset viewer.