Changeset 4955 for branches/2014/dev_MERGE_2014/NEMOGCM/NEMO
- Timestamp:
- 2014-12-02T14:32:57+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90
r4946 r4955 123 123 ierr(:) = 0 124 124 125 ALLOCATE( qsr_ice (jpi,jpj,jpl) , & 125 #if defined key_lim3 || defined key_lim2 126 ALLOCATE( qns_ice (jpi,jpj,jpl) , qsr_ice (jpi,jpj,jpl) , & 126 127 & qla_ice (jpi,jpj,jpl) , dqla_ice(jpi,jpj,jpl) , & 128 & dqns_ice(jpi,jpj,jpl) , tn_ice (jpi,jpj,jpl) , & 129 & alb_ice (jpi,jpj,jpl) , & 127 130 & utau_ice(jpi,jpj) , vtau_ice(jpi,jpj) , & 128 #if defined key_lim3 || defined key_cice 131 & fr1_i0 (jpi,jpj) , fr2_i0 (jpi,jpj) , & 132 #if defined key_lim3 129 133 & tatm_ice(jpi,jpj) , & 130 134 #endif 131 & STAT= ierr(1) ) 135 #if defined key_lim2 136 & a_i(jpi,jpj,jpl) , & 137 #endif 138 & emp_ice(jpi,jpj) , qemp_ice(jpi,jpj) , STAT= ierr(1) ) 139 #endif 140 132 141 #if defined key_cice 133 ALLOCATE( qlw_ice(jpi,jpj,1) , wndi_ice(jpi,jpj) , qatm_ice(jpi,jpj) , & 142 ALLOCATE( qla_ice(jpi,jpj,1) , qlw_ice(jpi,jpj,1) , qsr_ice(jpi,jpj,1) , & 143 wndi_ice(jpi,jpj) , tatm_ice(jpi,jpj) , qatm_ice(jpi,jpj) , & 134 144 wndj_ice(jpi,jpj) , nfrzmlt(jpi,jpj) , ss_iou(jpi,jpj) , & 135 145 ss_iov(jpi,jpj) , fr_iu(jpi,jpj) , fr_iv(jpi,jpj) , & … … 141 151 & STAT= ierr(2) ) 142 152 143 #else144 ALLOCATE( fr1_i0(jpi,jpj) , tn_ice (jpi,jpj,1) , &145 & fr2_i0(jpi,jpj) , alb_ice(jpi,jpj,1) , &146 & emp_ice(jpi,jpj) , qns_ice(jpi,jpj,1) , dqns_ice(jpi,jpj,1) , &147 & STAT= ierr(2) )148 153 #endif 149 154 ! … … 152 157 #endif 153 158 ! 154 #if defined key_lim2155 ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(4) )156 #endif157 158 159 #if defined key_cice || defined key_lim2 159 160 IF( lk_cpl ) ALLOCATE( ht_i(jpi,jpj,jpl) , ht_s(jpi,jpj,jpl) , STAT=ierr(5) )
Note: See TracChangeset
for help on using the changeset viewer.