/[MITgcm]/MITgcm/pkg/aim_v23/phy_driver.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/phy_driver.F

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

revision 1.8 by jmc, Thu Jan 21 00:10:04 2010 UTC revision 1.9 by dfer, Tue Oct 26 20:59:53 2010 UTC
# Line 122  c_FM  REAL    RPS(NGP), ST4S(NGP) Line 122  c_FM  REAL    RPS(NGP), ST4S(NGP)
122        _RL dTskin(NGP), T1s(NGP), DENVV(NGP)        _RL dTskin(NGP), T1s(NGP), DENVV(NGP)
123        _RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP)        _RL Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP)
124        _RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2)        _RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2)
125          _RL UPSWG(NGP)
126    
127        INTEGER J, K        INTEGER J, K
128    
# Line 238  c_FM &              ICLTOP,CLOUDC,TSR,SS Line 239  c_FM &              ICLTOP,CLOUDC,TSR,SS
239       I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,       I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
240       O             TAU2, STRATC,       O             TAU2, STRATC,
241       O             ICLTOP,CLOUDC(1,myThid),       O             ICLTOP,CLOUDC(1,myThid),
242       O             TSR(1,myThid),SSR(1,0,myThid),TT_RSW(1,1,myThid),       O             TSR(1,myThid),SSR(1,0,myThid),
243         O             UPSWG,TT_RSW(1,1,myThid),
244       I             kGround,bi,bj,myThid)       I             kGround,bi,bj,myThid)
245    
246          DO J=1,NGP          DO J=1,NGP
# Line 251  c_FM &              ICLTOP,CLOUDC,TSR,SS Line 253  c_FM &              ICLTOP,CLOUDC,TSR,SS
253           ENDDO           ENDDO
254          ENDDO          ENDDO
255    
256    #ifdef ALLOW_DIAGNOSTICS
257          IF ( usePkgDiag ) THEN
258            CALL DIAGNOSTICS_FILL( UPSWG,
259         &                        'UPSWG   ', 1, 1 , 3,bi,bj, myThid )
260          ENDIF
261    #endif
262    
263        ENDIF        ENDIF
264    
265  C     3.2 Compute downward longwave fluxes  C     3.2 Compute downward longwave fluxes
# Line 377  C      3.5.1 Compute shortwave tendencie Line 386  C      3.5.1 Compute shortwave tendencie
386       I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,       I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
387       O             TAU2, STRATC,       O             TAU2, STRATC,
388       O             dummyI, dummyR,       O             dummyI, dummyR,
389       O      TSWclr(1,myThid), SSWclr(1,myThid), TT_SWclr(1,1,myThid),       O  TSWclr(1,myThid), SSWclr(1,myThid), UPSWG, TT_SWclr(1,1,myThid),
390       I             kGround,bi,bj,myThid)       I             kGround,bi,bj,myThid)
391    
392    #ifdef ALLOW_DIAGNOSTICS
393          IF ( usePkgDiag ) THEN
394            CALL DIAGNOSTICS_FILL( UPSWG,
395         &                        'UPSWGclr', 1, 1 , 3,bi,bj, myThid )
396          ENDIF
397    #endif
398    
399  C      3.5.2 Compute downward longwave fluxes  C      3.5.2 Compute downward longwave fluxes
400    
401         CALL RADLW (-1,TG1,TS(1,myThid),ST4S,         CALL RADLW (-1,TG1,TS(1,myThid),ST4S,
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22