- Timestamp:
- 2015-07-20T11:12:03+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5463 r5613 46 46 USE iom 47 47 USE ioipsl 48 USE dynspg_oce, ONLY: un_adv, vn_adv ! barotropic velocities 49 48 USE dynspg_oce, ONLY: un_adv, vn_adv ! barotropic velocities 49 USE insitu_tem, ONLY: insitu_t, theta2t 50 50 #if defined key_lim2 51 51 USE limwri_2 … … 156 156 157 157 CALL iom_put( "toce", tsn(:,:,:,jp_tem) ) ! 3D temperature 158 CALL theta2t ! in-situ temperature conversion 159 CALL iom_put( "tinsitu", insitu_t(:,:,:)) ! in-situ temperature 158 160 CALL iom_put( "sst", tsn(:,:,1,jp_tem) ) ! surface temperature 159 161 IF ( iom_use("sbt") ) THEN … … 194 196 CALL iom_put( "taubot", z2d ) 195 197 ENDIF 196 198 197 199 CALL iom_put( "uoce", un(:,:,:) ) ! 3D i-current 198 200 CALL iom_put( "ssu", un(:,:,1) ) ! surface i-current
Note: See TracChangeset
for help on using the changeset viewer.