/[MITgcm]/MITgcm/pkg/fizhi/fizhi_turb.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_turb.F

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

revision 1.35 by molod, Mon Mar 21 17:34:51 2005 UTC revision 1.36 by molod, Mon Mar 21 18:47:04 2005 UTC
# Line 652  c ----------- Line 652  c -----------
652       1 tracers,ntracers-ptracers,ntracedim,dttrb,itrtrb,rmu,edle,qbeg,       1 tracers,ntracers-ptracers,ntracedim,dttrb,itrtrb,rmu,edle,qbeg,
653       2 tprof,stuflux,stvflux,sri,skh,skm,swinds,sustar,sz0,frqtrb,       2 tprof,stuflux,stvflux,sri,skh,skm,swinds,sustar,sz0,frqtrb,
654       3 pbldpth,sct,scu,stu2m,stv2m,stt2m,stq2m,stu10m,stv10m,stt10m,       3 pbldpth,sct,scu,stu2m,stv2m,stt2m,stq2m,stu10m,stv10m,stt10m,
655       4 stq10m,istrip,nlay,nymd,nhms,grav,cp,rgas,faceps,virtcon,undef,       4 stq10m,istrip,nlay,nltop,nymd,nhms,grav,cp,rgas,faceps,virtcon,
656       5 dshdthg,dshdshg,dthdthg,dthdshg,eturb,dedqa,dedtc,       5 undef,dshdthg,dshdshg,dthdthg,dthdshg,eturb,dedqa,dedtc,
657       6 hsturb,dhsdqa,dhsdtc,transth,transsh,       6 hsturb,dhsdqa,dhsdtc,transth,transsh,
658       7 ctsave,xxsave,yysave,zetasave,xlsave,khsave,qliq,turbfcc)       7 ctsave,xxsave,yysave,zetasave,xlsave,khsave,qliq,turbfcc)
659    
# Line 1424  c ************************************** Line 1424  c **************************************
1424       1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG,       1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG,
1425       2 TPROF,WU,WV,SRI,ET,EU,SWINDS,sustar,sz0,freqdg,pbldpth,       2 TPROF,WU,WV,SRI,ET,EU,SWINDS,sustar,sz0,freqdg,pbldpth,
1426       3 sct,scu,stu2m,stv2m,stt2m,stq2m,stu10m,stv10m,stt10m,stq10m,       3 sct,scu,stu2m,stv2m,stt2m,stq2m,stu10m,stv10m,stt10m,stq10m,
1427       4 irun,nlev,NYMD,NHMS,grav,cp,rgas,faceps,virtcon,undef,       4 irun,nlev,nltop,NYMD,NHMS,grav,cp,rgas,faceps,virtcon,undef,
1428       5 dshdthg,dshdshg,dthdthg,dthdshg,eturb,dedqa,dedtc,       5 dshdthg,dshdshg,dthdthg,dthdshg,eturb,dedqa,dedtc,
1429       6 hsturb,dhsdqa,dhsdtc,transth,transsh,       6 hsturb,dhsdqa,dhsdtc,transth,transsh,
1430       7 ctsave,xxsave,yysave,zetasave,xlsave,khsave,qliq,turbfcc)       7 ctsave,xxsave,yysave,zetasave,xlsave,khsave,qliq,turbfcc)
# Line 1458  C    ITRTRB        -         NUMBER OF I Line 1458  C    ITRTRB        -         NUMBER OF I
1458  C    KMBG          -         BACKGROUND VALUE OF MOMENTUM TRANSFER COEF  C    KMBG          -         BACKGROUND VALUE OF MOMENTUM TRANSFER COEF
1459  C    KHBG          -         BACKGROUND VALUE OF HEAT TRANSFER COEF  C    KHBG          -         BACKGROUND VALUE OF HEAT TRANSFER COEF
1460  C    NLEV          -         NUMBER OF ATMOSPHERIC LEVELS TO CALCULATE  C    NLEV          -         NUMBER OF ATMOSPHERIC LEVELS TO CALCULATE
1461    C    nltop         -         Top level allowed for turbulence
1462  C    QBEG          -         LOGICAL .TRUE. FOR INITIAL START OF GCM  C    QBEG          -         LOGICAL .TRUE. FOR INITIAL START OF GCM
1463  C    TPROF         -         LOGICAL .TRUE. TO CALCULATE PT BY PT DIAGS  C    TPROF         -         LOGICAL .TRUE. TO CALCULATE PT BY PT DIAGS
1464  C  C
# Line 1469  C*************************************** Line 1470  C***************************************
1470        implicit none        implicit none
1471    
1472  C Argument list declarations  C Argument list declarations
1473        integer nn,irun,nlev,ntrace,ntracedim,itrtrb,nhms,nymd        integer nn,irun,nlev,nltop,ntrace,ntracedim,itrtrb,nhms,nymd
1474        _RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1)        _RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1)
1475        _RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV)        _RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV)
1476        _RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV)        _RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV)
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22