Changeset 161 for codes/icosagcm/trunk
- Timestamp:
- 06/27/13 15:52:55 (11 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/disvert.f90
r159 r161 105 105 err=0. 106 106 107 dd=0 107 IF(comp) THEN 108 dd=1 109 ELSE 110 dd=0 111 END IF 108 112 109 113 DO l = ll_begin, ll_end -
codes/icosagcm/trunk/src/write_field.f90
r151 r161 442 442 ENDDO 443 443 ENDDO 444 444 445 PRINT *, 'Writefield ', TRIM(name), MAXVAL(Field_val3d(:,1)), MINVAL(Field_val3d(:,1)) ! FIXME 446 445 447 IF (once) THEN 446 448 status=NF90_PUT_VAR(FieldId(Index),FieldVarId(index)%nc_id(1),Field_val3d,start=(/ 1,1 /), &
Note: See TracChangeset
for help on using the changeset viewer.