Changeset 4609
- Timestamp:
- 2014-03-31T15:06:20+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/GYRE_PISCES/EXP00/iodef.xml
r4245 r4609 74 74 </file> 75 75 76 <file id="file5" name ="_ptrc_T" description="lobster sms variables" >76 <file id="file5" name_suffix="_ptrc_T" description="lobster sms variables" > 77 77 <field field_ref="DET" /> 78 78 <field field_ref="ZOO" /> -
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r4147 r4609 80 80 81 81 ! 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 ) 84 83 IF( l_trdtrc ) THEN 85 84 CALL wrk_alloc( jpi, jpj, jpk, ztrbio ) … … 110 109 111 110 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 113 114 zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400. 114 115 END DO … … 121 122 ENDIF 122 123 ! 123 IF( ln_diabio ) trbio(:,:,:,jp_pcs0_trd + 7) = ztra(:,:,:)124 IF( ln_diabio .AND. .NOT. lk_iomput ) trbio(:,:,:,jp_pcs0_trd + 7) = ztra(:,:,:) 124 125 CALL wrk_dealloc( jpi, jpj, jpk, zwork, ztra ) 125 126 !
Note: See TracChangeset
for help on using the changeset viewer.