Ignore:
Timestamp:
2018-06-19T21:54:00+02:00 (2 years ago)
Author:
antsia
Message:

delete iscplhsb, add iscpldiv and make the code readable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_isf_divg_corr_GO6_package_r9385/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

    r9630 r9813  
    2828   REAL(wp), PUBLIC                                        ::   rdt_iscpl 
    2929   !!                                                      !!* namsbc_iscpl namelist * 
    30    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  ) ::   hdiv_iscpl 
    31    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   htsc_iscpl 
     30   !!------array used for divergence correction 
     31   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  rhdivdiff 
     32   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::  rhdivdiff_trac 
     33 
    3234   !! * Substitutions   
    3335#  include "domzgr_substitute.h90"   
     
    4345      !!                ***  ROUTINE sbc_iscpl_alloc  *** 
    4446      !!---------------------------------------------------------------------- 
    45       ALLOCATE( htsc_iscpl(jpi,jpj,jpk,jpts) , hdiv_iscpl(jpi,jpj,jpk) , STAT=iscpl_alloc ) 
     47      ALLOCATE( rhdivdiff(jpi,jpj,jpk), rhdivdiff_trac(jpi,jpj,jpk,2), STAT=iscpl_alloc ) 
    4648         ! 
    4749      IF( lk_mpp          )   CALL mpp_sum ( iscpl_alloc ) 
     
    5153   SUBROUTINE iscpl_init() 
    5254      INTEGER ::   ios           ! Local integer output status for namelist read 
     55      INTEGER :: ierr 
    5356      NAMELIST/namsbc_iscpl/nn_fiscpl,ln_hsb,nn_drown 
    5457      !!---------------------------------------------------------------------- 
     
    8386      END IF 
    8487 
     88      IF( iscpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'iscpl_init : unable to allocate arrays' ) 
     89 
    8590   END SUBROUTINE iscpl_init 
    8691 
Note: See TracChangeset for help on using the changeset viewer.