Changeset 29 for codes/icosagcm/trunk
- Timestamp:
- 07/26/12 16:14:46 (12 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dissip_gcm.f90
r26 r29 164 164 165 165 166 DO it=1, 500166 DO it=1,20 167 167 168 168 dumax=0 … … 234 234 235 235 236 DO it=1, 500236 DO it=1,20 237 237 238 238 dumax=0 … … 302 302 ENDDO 303 303 304 DO it=1, 500304 DO it=1,20 305 305 306 306 dthetamax=0 -
codes/icosagcm/trunk/src/field.f90
r26 r29 62 62 field(ind)%ndim=4 63 63 field(ind)%dim4=dim2 64 field(ind)%dim3=dim1 64 65 ELSE IF (PRESENT(dim1)) THEN 65 66 field(ind)%ndim=3 … … 118 119 field(ind)%ndim=4 119 120 field(ind)%dim4=dim2 121 field(ind)%dim3=dim1 120 122 ELSE IF (PRESENT(dim1)) THEN 121 123 field(ind)%ndim=3 -
codes/icosagcm/trunk/src/write_field.f90
r26 r29 412 412 DO q=1,FieldVarId(index)%size 413 413 414 ALLOCATE(Field_val3d(n ,size(field(1)%rval4d,2)))414 ALLOCATE(Field_val3d(ncell,size(field(1)%rval4d,2))) 415 415 n=0 416 416 DO ind=ind_b,ind_e
Note: See TracChangeset
for help on using the changeset viewer.