- Timestamp:
- 2011-03-01T20:04:06+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90
r2625 r2636 10 10 11 11 !!---------------------------------------------------------------------- 12 !! sbc_dcy : compute solar flux at kt from daily mean, taking 13 !! diurnal cycle into account 12 !! sbc_dcy : solar flux at kt from daily mean, taking diurnal cycle into account 14 13 !!---------------------------------------------------------------------- 15 14 USE oce ! ocean dynamics and tracers … … 33 32 !! NEMO/OPA 3.3 , NEMO-consortium (2010) 34 33 !! $Id$ 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 35 !!---------------------------------------------------------------------- 37 36 CONTAINS … … 41 40 !! *** FUNCTION sbc_dcy_alloc *** 42 41 !!---------------------------------------------------------------------- 43 !44 42 ALLOCATE( raa (jpi,jpj) , rbb (jpi,jpj) , rcc (jpi,jpj) , rab (jpi,jpj) , & 45 43 & rtmd(jpi,jpj) , rdawn(jpi,jpj) , rdusk(jpi,jpj) , rscal(jpi,jpj) , STAT=sbc_dcy_alloc ) … … 47 45 IF( lk_mpp ) CALL mpp_sum ( sbc_dcy_alloc ) 48 46 IF( sbc_dcy_alloc /= 0 ) CALL ctl_warn('sbc_dcy_alloc: failed to allocate arrays') 49 !50 47 END FUNCTION sbc_dcy_alloc 51 48
Note: See TracChangeset
for help on using the changeset viewer.