Changeset 13257 for NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/ICB/icb_oce.F90
- Timestamp:
- 2020-07-07T11:00:57+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/ICB/icb_oce.F90
r12472 r13257 176 176 ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) , & 177 177 & vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) , & 178 #if defined key_si3 || defined key_cice179 & ui_e(0:jpi+1,0:jpj+1) , &180 & vi_e(0:jpi+1,0:jpj+1) , &181 & hi_e(0:jpi+1,0:jpj+1) , &182 #endif183 178 & ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1) , & 184 179 & tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) , & … … 188 183 icb_alloc = icb_alloc + ill 189 184 185 #if defined key_si3 || defined key_cice 186 ALLOCATE( ui_e(0:jpi+1,0:jpj+1) , & 187 & vi_e(0:jpi+1,0:jpj+1) , & 188 & hi_e(0:jpi+1,0:jpj+1) , , STAT=ill) 189 icb_alloc = icb_alloc + ill 190 191 #endif 190 192 ALLOCATE( tmask_e(0:jpi+1,0:jpj+1), umask_e(0:jpi+1,0:jpj+1), vmask_e(0:jpi+1,0:jpj+1), & 191 193 & STAT=ill)
Note: See TracChangeset
for help on using the changeset viewer.