Ignore:
Timestamp:
2015-06-04T17:01:01+02:00 (6 years ago)
Author:
smasson
Message:

dev_r5218_CNRS17_coupling: update for fraqsr

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r4990 r5352  
    6969   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   snwice_fmass       !: time evolution of mass of snow+ice               [Kg/m2/s] 
    7070 
    71    !! Energy budget of the leads (open water embedded in sea ice) 
    72    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   fraqsr_1lev        !: fraction of solar net radiation absorbed in the first ocean level [-] 
    73  
    7471   !!---------------------------------------------------------------------- 
    7572   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
     
    8380      !!                   ***  FUNCTION oce_alloc  *** 
    8481      !!---------------------------------------------------------------------- 
    85       INTEGER :: ierr(4) 
     82      INTEGER :: ierr(3) 
    8683      !!---------------------------------------------------------------------- 
    8784      ! 
     
    117114      ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(3) ) 
    118115         ! 
    119       ALLOCATE( fraqsr_1lev(jpi,jpj) , STAT=ierr(4) ) 
    120          ! 
    121116      oce_alloc = MAXVAL( ierr ) 
    122117      IF( oce_alloc /= 0 )   CALL ctl_warn('oce_alloc: failed to allocate arrays') 
Note: See TracChangeset for help on using the changeset viewer.