- Timestamp:
- 12/17/15 17:53:06 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/iLoveclim/SOURCES/Temperature-routines/icetemp_mod.f90
r25 r31 85 85 !Tab Nx,Ny 86 86 Allocate(Tbmer(Nx,Ny),& 87 ! Alpha(Nx,Ny),&88 ! Ubar(Nx,Ny),&89 87 Chalglissx(Nx,Ny),& 90 88 Chalglissy(Nx,Ny),& … … 118 116 Rr=0. 119 117 Hh=0. 120 Tdot=0 118 Tdot=0 121 119 Chal2_x=0. 122 120 Chal2_y=0. … … 298 296 299 297 Deallocate (Aa,Bb,Cc,Rr,Hh,Tdot,Abis,Bbis,Cbis,Rbis,Hbis,Ee,Tbmer, & 300 Chalglissx,Chalglissy,Iadvec_w,Iadvec_e, & !Alpha,Ubar298 Chalglissx,Chalglissy,Iadvec_w,Iadvec_e, & 301 299 Iadvec_s,Iadvec_n,Chal2_x,Chal2_y,Chal2_z,Chal2_xy,Chaldef_maj, & 302 300 Advecx,Advecy,Advec,Chalx,Chaly,Ffx,Ffy,T3d_new)
Note: See TracChangeset
for help on using the changeset viewer.