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

Minor additions

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.