- Timestamp:
- 2010-10-12T20:49:32+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcice_if.F90
r1951 r2236 32 32 !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008) 33 33 !! $Id$ 34 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)34 !! Software governed by the CeCILL licence (NEMOGCM/License_CeCILL.txt) 35 35 !!---------------------------------------------------------------------- 36 36 … … 81 81 CALL ctl_stop( 'sbc_ice_if: unable to allocate sf_ice structure' ) ; RETURN 82 82 ENDIF 83 ALLOCATE( sf_ice(1)%fnow(jpi,jpj,1 84 ALLOCATE( sf_ice(1)%fdta(jpi,jpj,1,2) )83 ALLOCATE( sf_ice(1)%fnow(jpi,jpj,1) ) 84 IF( sn_ice%ln_tint ) ALLOCATE( sf_ice(1)%fdta(jpi,jpj,1,2) ) 85 85 86 86
Note: See TracChangeset
for help on using the changeset viewer.