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

    r9630 r9813  
    7171   !! Energy budget of the leads (open water embedded in sea ice) 
    7272   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   fraqsr_1lev        !: fraction of solar net radiation absorbed in the first ocean level [-] 
    73  
    74   !!------array used for divergence correction 
    75    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  rhdivdiff 
    76    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::  rhdivdiff_trac 
    7773  
    7874   !! Arrays used in coupling when MEDUSA is present. These arrays need to be declared 
     
    133129         &     ge3rui(jpi,jpj)   , ge3rvi(jpi,jpj)   ,                     & 
    134130         &     grui(jpi,jpj)     , grvi(jpi,jpj)     ,                     & 
    135          &     riceload(jpi,jpj),  rhdivdiff(jpi,jpj,jpk), rhdivdiff_trac(jpi,jpj,jpk,2) ,  STAT=ierr(2) ) 
     131         &     riceload(jpi,jpj),                             STAT=ierr(2) ) 
    136132         ! 
    137133      ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(3) ) 
Note: See TracChangeset for help on using the changeset viewer.