- Timestamp:
- 2013-11-14T18:02:06+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/oce.F90
r4152 r4205 57 57 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: snwice_fmass !: time evolution of mass of snow+ice [Kg/m2/s] 58 58 59 !! arrays related to penetration of solar fluxes to calculate the heat budget for sea ice 60 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: oatte, iatte !: attenuation coef of the input solar flux [unitless] 61 59 62 !!---------------------------------------------------------------------- 60 63 !! NEMO/OPA 4.0 , NEMO Consortium (2011) … … 68 71 !! *** FUNCTION oce_alloc *** 69 72 !!---------------------------------------------------------------------- 70 INTEGER :: ierr( 3)73 INTEGER :: ierr(4) 71 74 !!---------------------------------------------------------------------- 72 75 ! … … 90 93 & gru(jpi,jpj) , grv(jpi,jpj) , STAT=ierr(2) ) 91 94 ! 92 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), & 93 & snwice_fmass(jpi,jpj), STAT= ierr(3) ) 95 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(3) ) 96 ! 97 ALLOCATE( iatte(jpi,jpj) , oatte(jpi,jpj) , STAT=ierr(4) ) 94 98 ! 95 99 oce_alloc = MAXVAL( ierr )
Note: See TracChangeset
for help on using the changeset viewer.