Changeset 3996


Ignore:
Timestamp:
2013-08-01T13:40:26+02:00 (7 years ago)
Author:
vichi
Message:

Fix bug #1056, failed compilation with gfortran

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90

    r3983 r3996  
    165165      ! 
    166166      icb_alloc = 0 
    167       ALLOCATE( berg_grid                      ,                                               & 
    168          &      berg_grid%calving    (jpi,jpj) , berg_grid%calving_hflx (jpi,jpj)          ,   & 
     167      ALLOCATE( berg_grid%calving    (jpi,jpj) , berg_grid%calving_hflx (jpi,jpj)          ,   & 
    169168         &      berg_grid%stored_heat(jpi,jpj) , berg_grid%floating_melt(jpi,jpj)          ,   & 
    170169         &      berg_grid%maxclass   (jpi,jpj) , berg_grid%stored_ice   (jpi,jpj,nclasses) ,   & 
Note: See TracChangeset for help on using the changeset viewer.