Changeset 29


Ignore:
Timestamp:
07/26/12 16:14:46 (12 years ago)
Author:
ymipsl
Message:

Bug fixe for output tracer

YM

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

Legend:

Unmodified
Added
Removed

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

    r26 r29  
    164164 
    165165 
    166     DO it=1,500 
     166    DO it=1,20 
    167167       
    168168      dumax=0 
    … …  
    234234 
    235235 
    236     DO it=1,500 
     236    DO it=1,20 
    237237  
    238238      dumax=0 
    … …  
    302302    ENDDO 
    303303 
    304     DO it=1,500 
     304    DO it=1,20 
    305305 
    306306      dthetamax=0 

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

    r26 r29  
    6262        field(ind)%ndim=4  
    6363        field(ind)%dim4=dim2  
     64        field(ind)%dim3=dim1 
    6465      ELSE IF (PRESENT(dim1)) THEN 
    6566        field(ind)%ndim=3 
    … …  
    118119        field(ind)%ndim=4  
    119120        field(ind)%dim4=dim2  
     121        field(ind)%dim3=dim1  
    120122      ELSE IF (PRESENT(dim1)) THEN 
    121123        field(ind)%ndim=3 

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

    r26 r29  
    412412          DO q=1,FieldVarId(index)%size 
    413413           
    414             ALLOCATE(Field_val3d(n,size(field(1)%rval4d,2))) 
     414            ALLOCATE(Field_val3d(ncell,size(field(1)%rval4d,2))) 
    415415            n=0 
    416416            DO ind=ind_b,ind_e 
Note: See TracChangeset for help on using the changeset viewer.