- Timestamp:
- 01/14/15 11:10:01 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/physiq.F90
r315 r317 236 236 237 237 real zls ! solar longitude (rad) 238 real zls_ngrid(ngrid) ! dummy array to output Ls (as a surface field) 238 239 real zday ! date (time since Ls=0, in martian days) 239 240 real zzlay(ngrid,nlayer) ! altitude at the middle of the layers … … 2238 2239 icount=icount+1 2239 2240 2240 !!!!!!!!!!!!!!!! section for XIOS output !!!!!!!!!!!!!!! 2241 !!!!!!!!!!!!!!!! section for XIOS output !!!!!!!!!!!!!!! 2242 zls_ngrid(1:ngrid)= zls*180./pi 2243 call write_xios_field("Ls",zls_ngrid) 2241 2244 CALL write_xios_field("tsurf",tsurf) 2242 2245 CALL write_xios_field("ps",ps)
Note: See TracChangeset
for help on using the changeset viewer.