/[MITgcm]/MITgcm/pkg/aim/aim_write_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/aim_write_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC revision 1.3 by adcroft, Mon Feb 5 15:42:01 2001 UTC
# Line 65  C      Normalize by integrated time Line 65  C      Normalize by integrated time
65         _BARRIER         _BARRIER
66         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
67          WRITE(fn,'(A,I10.10)') 'aimphyvars.',myIter          WRITE(fn,'(A,I10.10)') 'aimphyvars.',myIter
68          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,USTRtave,   1,myIter,myThid)          CALL MDSWRITEFIELD(fn,precFloat32,gf,
69          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,VSTRtave,   2,myIter,myThid)       &        'RL',1,USTRtave,   1,myIter,myThid)
70          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,TSRtave ,   3,myIter,myThid)          CALL MDSWRITEFIELD(fn,precFloat32,gf,
71          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,OLRtave ,   4,myIter,myThid)       &        'RL',1,VSTRtave,   2,myIter,myThid)
72          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,SSRtave ,   5,myIter,myThid)          CALL MDSWRITEFIELD(fn,precFloat32,gf,
73          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,SLRtave ,   6,myIter,myThid)       &        'RL',1,TSRtave ,   3,myIter,myThid)
74          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,SHFtave ,   7,myIter,myThid)          CALL MDSWRITEFIELD(fn,precFloat32,gf,
75          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,EVAPtave,   8,myIter,myThid)       &        'RL',1,OLRtave ,   4,myIter,myThid)
76          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,PRECNVtave, 9,myIter,myThid)          CALL MDSWRITEFIELD(fn,precFloat32,gf,
77          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,PRECLStave,10,myIter,myThid)       &        'RL',1,SSRtave ,   5,myIter,myThid)
78          CALL MDSWRITEFIELD(fn,precFloat32,gf,'RL',1,CLOUDCtave,11,myIter,myThid)          CALL MDSWRITEFIELD(fn,precFloat32,gf,
79         &        'RL',1,SLRtave ,   6,myIter,myThid)
80            CALL MDSWRITEFIELD(fn,precFloat32,gf,
81         &        'RL',1,SHFtave ,   7,myIter,myThid)
82            CALL MDSWRITEFIELD(fn,precFloat32,gf,
83         &        'RL',1,EVAPtave,   8,myIter,myThid)
84            CALL MDSWRITEFIELD(fn,precFloat32,gf,
85         &        'RL',1,PRECNVtave, 9,myIter,myThid)
86            CALL MDSWRITEFIELD(fn,precFloat32,gf,
87         &        'RL',1,PRECLStave,10,myIter,myThid)
88            CALL MDSWRITEFIELD(fn,precFloat32,gf,
89         &        'RL',1,CLOUDCtave,11,myIter,myThid)
90         _END_MASTER( myThid )         _END_MASTER( myThid )
91         _BARRIER         _BARRIER
92    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22