source: LMDZ6/branches/Amaury_dev/libf/phylmd/write_histREGDYN.h @ 5209

Last change on this file since 5209 was 5159, checked in by abarral, 7 weeks ago

Put dimensions.h and paramet.h into modules
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
RevLine 
[5099]1
[524]2! $Header$
[5099]3
[5128]4IF (ok_regdyn) THEN
5IF (is_sequential) THEN
6ndex3d = 0
7itau_w = itau_phy + itap + start_time * day_step / iphysiq
[5159]8
[5128]9 CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1), &
10       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]11
[5128]12 CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1), &
13       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]14
[5128]15 CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1), &
16       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]17
[5128]18 CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2), &
19       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]20
[5128]21 CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2), &
22       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]23
[5128]24 CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2), &
25       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]26
[5128]27 CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3), &
28       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]29
[5128]30 CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3), &
31       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]32
[5128]33 CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3), &
34       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]35
[5128]36 CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4), &
37       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]38
[5128]39 CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4), &
40       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]41
[5128]42 CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4), &
43       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]44
[5128]45 CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5), &
46       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]47
[5128]48 CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5), &
49       kmaxm1*lmaxm1*iwmax,ndex3d)
[5159]50
[5128]51 CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5), &
52       kmaxm1*lmaxm1*iwmax,ndex3d)
[524]53
[5128]54IF (ok_sync) THEN
55  CALL histsync(nid_regdyn)
56endif
[524]57
[5128]58endif ! is_sequential
[766]59
[5128]60endif
Note: See TracBrowser for help on using the repository browser.