- Timestamp:
- 2013-11-20T17:28:04+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90
r3680 r4292 21 21 PUBLIC trc_wri_pisces 22 22 23 # include "top_substitute.h90" 23 24 CONTAINS 24 25 … … 39 40 DO jn = jp_pcs0, jp_pcs1 40 41 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 42 IF( lk_vvl ) THEN 43 CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) ) 44 ELSE 45 CALL iom_put( cltra, trn(:,:,:,jn) ) 46 ENDIF 41 47 CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 42 48 END DO … … 47 53 IF( jn == jppo4 ) zrfact = po4r * 1.0e+6 48 54 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 49 CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 55 IF( lk_vvl ) THEN 56 CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) * zrfact ) 57 ELSE 58 CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 59 ENDIF 50 60 END DO 51 61 #endif
Note: See TracChangeset
for help on using the changeset viewer.