- Timestamp:
- 2015-01-14T17:45:17+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90
r5026 r5030 92 92 INTEGER , PUBLIC, PARAMETER :: jpl = ncat 93 93 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: u_ice, v_ice ! jpi, jpj 94 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_p, ht_p ! Meltpond fraction and depth 94 95 #endif 95 96 … … 148 149 & v_ice(jpi,jpj) , fr2_i0(jpi,jpj) , alb_ice(jpi,jpj,1) , & 149 150 & emp_ice(jpi,jpj) , qns_ice(jpi,jpj,1) , dqns_ice(jpi,jpj,1) , & 150 & STAT=ierr(2) )151 & a_p(jpi,jpj,jpl) , ht_p(jpi,jpj,jpl) , STAT=ierr(2) ) 151 152 152 153 #endif … … 157 158 ! 158 159 #if defined key_cice || defined key_lim2 159 IF( lk_cpl ) 160 IF( lk_cpl ) ALLOCATE( ht_i(jpi,jpj,jpl) , ht_s(jpi,jpj,jpl) , STAT=ierr(5) ) 160 161 #endif 161 162
Note: See TracChangeset
for help on using the changeset viewer.