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/icecor.F90

    r8514 r8517  
    5353      ! 
    5454      INTEGER  ::   ji, jj, jk, jl   ! dummy loop indices 
    55       REAL(wp) ::   zsal, zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b, zzc 
     55      REAL(wp) ::   zsal, zzc 
    5656      REAL(wp), DIMENSION(jpi,jpj) ::   zafx   ! concentration trends diag 
    5757      !!---------------------------------------------------------------------- 
    58       IF( nn_timing == 1 )   CALL timing_start('icecor') 
     58      ! controls 
     59      IF( nn_timing == 1 )   CALL timing_start('icecor')                                                             ! timing 
     60      IF( ln_icediachk   )   CALL ice_cons_hsm(0, 'icecor', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    5961      ! 
    6062      IF( kt == nit000 .AND. lwp .AND. kn == 2 ) THEN 
     
    6365         WRITE(numout,*) '~~~~~~~' 
    6466      ENDIF 
    65       !                             !--- conservation test 
    66       IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    67       ! 
    6867      ! 
    6968      IF( kn == 2 ) THEN 
     
    175174      END SELECT 
    176175      ! 
    177       !                                !--- conservation test 
    178       IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    179       ! 
    180       !                                !--- control prints 
    181       IF( ln_ctl )                    CALL ice_prt3D( 'icecor' ) 
    182       IF( ln_icectl .AND. kn == 2 )   CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' ) 
    183       ! 
    184       IF( nn_timing == 1 )   CALL timing_stop('icecor') 
     176      ! controls 
     177      IF( ln_icediachk   )   CALL ice_cons_hsm(1, 'icecor', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
     178      IF( ln_ctl         )   CALL ice_prt3D   ('icecor')                                                             ! prints 
     179      IF( ln_icectl .AND. kn == 2 )   CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' )                   ! prints 
     180      IF( nn_timing == 1 )   CALL timing_stop ('icecor')                                                             ! timing 
    185181      ! 
    186182   END SUBROUTINE ice_cor 
Note: See TracChangeset for help on using the changeset viewer.