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

changes in style - part6 - commits of the day

File:
1 edited

Legend:

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

    r8517 r8518  
    3737   INTEGER, PARAMETER ::   np_rhgEVP = 1   ! EVP rheology 
    3838!! INTEGER, PARAMETER ::   np_rhgEAP = 2   ! EAP rheology 
    39     
     39 
     40   ! ** namelist (namrhg) ** 
     41   LOGICAL ::   ln_rhg_EVP       ! EVP rheology 
     42   ! 
    4043   !! * Substitutions 
    4144#  include "vectopt_loop_substitute.h90" 
     
    7780         !                             !------------------------! 
    7881         CALL ice_rhg_evp( kt, stress1_i, stress2_i, stress12_i, u_ice, v_ice, shear_i, divu_i, delta_i ) 
    79  
     82         !          
    8083      END SELECT 
     84      ! 
     85      IF( lrst_ice ) THEN                       !* write EVP fields in the restart file 
     86         IF( ln_rhg_EVP )   CALL rhg_evp_rst( 'WRITE', kt ) 
     87      ENDIF 
    8188      ! 
    8289      ! controls 
     
    8693      ! 
    8794   END SUBROUTINE ice_rhg 
    88  
    8995 
    9096   SUBROUTINE ice_rhg_init 
     
    131137!!    IF( ln_rhg_EAP ) THEN   ;   ioptio = ioptio + 1   ;   nice_rhg = np_rhgEAP    ;   ENDIF 
    132138      IF( ioptio /= 1 )   CALL ctl_stop( 'ice_rhg_init: choose one and only one ice rheology' ) 
    133  
    134      !                              ! allocate tke arrays 
    135 !!clem example      IF( zdf_tke_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_tke_init : unable to allocate arrays' ) 
     139      ! 
     140      IF( ln_rhg_EVP )   CALL rhg_evp_rst( 'READ' )  !* read or initialize all required files 
    136141      ! 
    137142   END SUBROUTINE ice_rhg_init 
Note: See TracChangeset for help on using the changeset viewer.