Changeset 161


Ignore:
Timestamp:
06/27/13 15:52:55 (11 years ago)
Author:
dubos
Message:

Minor additions

Location:
codes/icosagcm/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/disvert.f90

    r159 r161  
    105105    err=0. 
    106106 
    107     dd=0 
     107    IF(comp) THEN 
     108       dd=1 
     109    ELSE 
     110       dd=0 
     111    END IF 
    108112 
    109113    DO l = ll_begin, ll_end 

  • codes/icosagcm/trunk/src/write_field.f90

    r151 r161  
    442442            ENDDO 
    443443          ENDDO 
    444             
     444 
     445          PRINT *, 'Writefield ', TRIM(name), MAXVAL(Field_val3d(:,1)), MINVAL(Field_val3d(:,1)) ! FIXME 
     446 
    445447          IF (once) THEN  
    446448            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.