New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5260 for branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90 – NEMO

Ignore:
Timestamp:
2015-05-12T12:37:15+02:00 (9 years ago)
Author:
deazer
Message:

Merged branch with Trunk at revision 5253.
Checked with SETTE, passes modified iodef.xml for AMM12 experiment

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90

    • Property svn:keywords set to Id
    r4153 r5260  
    4444 
    4545INTEGER, PUBLIC, PARAMETER ::   nclasses = 10   !: Number of icebergs classes    
    46 !!INTEGER, PUBLIC & 
    47 !!#if !defined key_agrif  
    48 !!           , PARAMETER & 
    49 !!#endif 
    50 !!     :: & 
    51 !!     nclasses = 10   !: Number of icebergs classes 
    5246   INTEGER, PUBLIC, PARAMETER ::   nkounts  =  3   !: Number of integers combined for unique naming 
    5347 
     
    9387   ! particularly for MPP when iceberg can lie inside T grid but outside U, V, or f grid 
    9488   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   uo_e, vo_e 
    95    REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ff_e 
     89   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ff_e, tt_e, fr_e, hicth 
    9690   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ua_e, va_e 
    9791   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ssh_e 
    98 #if defined key_lim2 || defined key_lim3 
     92#if defined key_lim2 || defined key_lim3 || defined key_cice 
    9993   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ui_e, vi_e 
    10094#endif 
     
    144138   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbflddest                      !: nfold destination proc 
    145139   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbfldproc                      !: nfold destination proc 
     140   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbfldnsend                     !: nfold number of bergs to send to nfold neighbour 
     141   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbfldexpect                    !: nfold expected number of bergs 
     142   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbfldreq                       !: nfold message handle (immediate send) 
    146143 
    147144   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   :: griddata                           !: work array for icbrst 
     
    149146   !!---------------------------------------------------------------------- 
    150147   !! NEMO/OPA 3.3 , NEMO Consortium (2011) 
    151    !! $Id: sbc_oce.F90 3340 2012-04-02 11:05:35Z sga $ 
     148   !! $Id$ 
    152149   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    153150   !!---------------------------------------------------------------------- 
     
    162159      ! 
    163160      icb_alloc = 0 
     161      ALLOCATE( berg_grid, STAT=ill ) 
     162      icb_alloc = icb_alloc + ill 
    164163      ALLOCATE( berg_grid%calving    (jpi,jpj) , berg_grid%calving_hflx (jpi,jpj)          ,   & 
    165164         &      berg_grid%stored_heat(jpi,jpj) , berg_grid%floating_melt(jpi,jpj)          ,   & 
     
    171170      ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) ,   & 
    172171         &      vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) ,   & 
    173 #if defined key_lim2 || defined key_lim3 
     172#if defined key_lim2 || defined key_lim3 || defined key_cice 
    174173         &      ui_e(0:jpi+1,0:jpj+1) ,                            & 
    175174         &      vi_e(0:jpi+1,0:jpj+1) ,                            & 
    176175#endif 
    177          &      ff_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) ,   & 
     176         &      ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1)  ,   & 
     177         &      tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) ,   & 
     178         &      hicth(0:jpi+1,0:jpj+1),                            & 
    178179         &      first_width(nclasses) , first_length(nclasses) ,   & 
    179180         &      src_calving (jpi,jpj) ,                            & 
     
    181182      icb_alloc = icb_alloc + ill 
    182183 
    183       ALLOCATE( nicbfldpts(jpi) , nicbflddest(jpi) , nicbfldproc(jpni) , STAT=ill) 
     184      ALLOCATE( nicbfldpts(jpi) , nicbflddest(jpi) , nicbfldproc(jpni) , & 
     185         &      nicbfldnsend(jpni), nicbfldexpect(jpni) , nicbfldreq(jpni), STAT=ill) 
    184186      icb_alloc = icb_alloc + ill 
    185187 
Note: See TracChangeset for help on using the changeset viewer.