- Timestamp:
- 2013-04-09T18:34:38+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90
r3680 r3865 39 39 DO jn = jp_pcs0, jp_pcs1 40 40 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 41 IF( lk_vvl ) THEN 42 CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) ) 43 ELSE 44 CALL iom_put( cltra, trn(:,:,:,jn) ) 45 ENDIF 41 46 CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 42 47 END DO … … 47 52 IF( jn == jppo4 ) zrfact = po4r * 1.0e+6 48 53 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 49 CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 54 IF( lk_vvl ) THEN 55 CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) * zrfact ) 56 ELSE 57 CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 58 ENDIF 50 59 END DO 51 60 #endif
Note: See TracChangeset
for help on using the changeset viewer.