Changeset 4609


Ignore:
Timestamp:
2014-03-31T15:06:20+02:00 (7 years ago)
Author:
cetlod
Message:

bugfix on PISCES/P2Z, see ticket #1298

Location:
trunk/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/GYRE_PISCES/EXP00/iodef.xml

    r4245 r4609  
    7474        </file> 
    7575 
    76    <file id="file5" name="_ptrc_T" description="lobster sms variables" > 
     76   <file id="file5" name_suffix="_ptrc_T" description="lobster sms variables" > 
    7777          <field field_ref="DET"      /> 
    7878          <field field_ref="ZOO"      /> 
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90

    r4147 r4609  
    8080 
    8181      ! Allocate temporary workspace 
    82                        CALL wrk_alloc( jpi, jpj, jpk, zwork, ztra ) 
    83       IF( ln_diatrc )  CALL wrk_alloc( jpi, jpj, zw2d ) 
     82      CALL wrk_alloc( jpi, jpj, jpk, zwork, ztra ) 
    8483      IF( l_trdtrc ) THEN 
    8584         CALL wrk_alloc( jpi, jpj, jpk, ztrbio ) 
     
    110109 
    111110      IF( ln_diatrc ) THEN  
    112          DO jk = 1, jpkm1 
     111         CALL wrk_alloc( jpi, jpj, zw2d ) 
     112         zw2d(:,:) =  ztra(:,:,1) * fse3t(:,:,1) * 86400. 
     113         DO jk = 2, jpkm1 
    113114            zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400. 
    114115         END DO 
     
    121122      ENDIF 
    122123      ! 
    123       IF( ln_diabio )  trbio(:,:,:,jp_pcs0_trd + 7) = ztra(:,:,:) 
     124      IF( ln_diabio .AND. .NOT. lk_iomput )  trbio(:,:,:,jp_pcs0_trd + 7) = ztra(:,:,:) 
    124125      CALL wrk_dealloc( jpi, jpj, jpk, zwork, ztra ) 
    125126      ! 
Note: See TracChangeset for help on using the changeset viewer.