/[MITgcm]/MITgcm_contrib/jscott/igsm/src/dd2g04.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/src/dd2g04.F

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

revision 1.1 by jscott, Fri Aug 11 19:35:30 2006 UTC revision 1.2 by jscott, Mon Apr 23 21:20:18 2007 UTC
# Line 1347  c      43 is SWUP at Z0 from CLM Line 1347  c      43 is SWUP at Z0 from CLM
1347         SCALE(43)=1.0         SCALE(43)=1.0
1348  c      45 is LWUP at Z0 from CLM  c      45 is LWUP at Z0 from CLM
1349         SCALE(45)=1.0         SCALE(45)=1.0
1350    c      16 is vetclm  from CLM
1351           SCALE(16)=SDAY
1352    c      41 is sevclm  from CLM
1353           SCALE(41)=SDAY
1354    c      42 is cevclm  from CLM
1355           SCALE(42)=SDAY
1356        endif        endif
1357        SCALE(46)=SDAY/DTSRCE        SCALE(46)=SDAY/DTSRCE
1358        SCALE(47)=SDAY/DTSRCE                                             1693.          SCALE(47)=SDAY/DTSRCE                                             1693.  
# Line 1403  C  CLEAR SKY Line 1409  C  CLEAR SKY
1409  CCC   ABCJCL(J,7,M)=ABCJCL(J,7,M)/(A1BYA2*DTSRCE)  CCC   ABCJCL(J,7,M)=ABCJCL(J,7,M)/(A1BYA2*DTSRCE)
1410        ABCJCL(J,12,M)=ABCJCL(J,4,M)+ABCJCL(J,7,M)        ABCJCL(J,12,M)=ABCJCL(J,4,M)+ABCJCL(J,7,M)
1411  C  CLEAR SKY  C  CLEAR SKY
1412          if(NOCLM) then
1413        ABCJ(J,16,M)=ABCJ(J,41,M)+ABCJ(J,42,M)                            1736.          ABCJ(J,16,M)=ABCJ(J,41,M)+ABCJ(J,42,M)                            1736.  
1414          endif
1415        ABCJ(J,20,M)=ABCJ(J,61,M)+ABCJ(J,62,M)                            1737.          ABCJ(J,20,M)=ABCJ(J,61,M)+ABCJ(J,62,M)                            1737.  
1416        if(NOCLM)then        if(NOCLM)then
1417        ABCJ(J,44,M)=ABCJ(J,12,M)+ABCJ(J,13,M)+ABCJ(J,14,M)               1738.          ABCJ(J,44,M)=ABCJ(J,12,M)+ABCJ(J,13,M)+ABCJ(J,14,M)               1738.  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22