Changeset 4570 for trunk/NEMOGCM/NEMO/OPA_SRC/DIA
- Timestamp:
- 2014-03-25T18:47:41+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r4492 r4570 152 152 z3d(:,:,1) = tsn(:,:,1,jp_tem) * z3d(:,:,1) 153 153 CALL iom_put( "sst2" , z3d(:,:,1) ) ! sea surface content of squared temperature 154 z3d(:,:,:) = tsn(:,:,:,jp_sal) * fse3t_n(:,:,:) 154 z3d(:,:,:) = tsn(:,:,:,jp_sal) * fse3t_n(:,:,:) 155 155 CALL iom_put( "soce" , z3d ) ! salinity content 156 156 CALL iom_put( "sss" , z3d(:,:,1) ) ! sea surface salinity content … … 431 431 CALL histdef( nid_T, "sowaflup", "Net Upward Water Flux" , "Kg/m2/s", & ! (emp-rnf) 432 432 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 433 CALL histdef( nid_T, "sorunoff", "River runoffs" , "Kg/m2/s", & ! runoffs 434 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 433 435 CALL histdef( nid_T, "sosfldow", "downward salt flux" , "PSU/m2/s", & ! sfx 434 436 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) … … 642 644 CALL histwrite( nid_T, "sossheig", it, sshn , ndim_hT, ndex_hT ) ! sea surface height 643 645 CALL histwrite( nid_T, "sowaflup", it, ( emp-rnf ) , ndim_hT, ndex_hT ) ! upward water flux 646 CALL histwrite( nid_T, "sorunoff", it, rnf , ndim_hT, ndex_hT ) ! river runoffs 644 647 CALL histwrite( nid_T, "sosfldow", it, sfx , ndim_hT, ndex_hT ) ! downward salt flux 645 648 ! (includes virtual salt flux beneath ice
Note: See TracChangeset
for help on using the changeset viewer.