/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_growth.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_growth.F

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

revision 1.20 by torge, Fri May 3 20:09:15 2013 UTC revision 1.21 by torge, Fri May 3 20:20:21 2013 UTC
# Line 1432  CADJ STORE heff(:,:,bi,bj) = comlev1_bib Line 1432  CADJ STORE heff(:,:,bi,bj) = comlev1_bib
1432  CADJ STORE r_QbyOCN = comlev1_bibj,key=iicekey,byte=isbyte  CADJ STORE r_QbyOCN = comlev1_bibj,key=iicekey,byte=isbyte
1433  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
1434    
1435           IF (.NOT.SEAICE_growMeltByConv) THEN
1436          
1437  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
1438          DO IT=1,nITD          DO IT=1,nITD
1439           DO J=1,sNy           DO J=1,sNy
# Line 1473  C          fractional area of each thick Line 1475  C          fractional area of each thick
1475          ENDDO          ENDDO
1476  #endif /* SEAICE_ITD */  #endif /* SEAICE_ITD */
1477    
1478          endif !SEAICE_growMeltByConv
1479    
1480  C compute snow melt tendency due to snow-atmosphere interaction  C compute snow melt tendency due to snow-atmosphere interaction
1481  C ==================================================================  C ==================================================================
1482    
# Line 1659  CADJ STORE HSNOW(:,:,bi,bj) = comlev1_bi Line 1663  CADJ STORE HSNOW(:,:,bi,bj) = comlev1_bi
1663  CADJ STORE r_QbyOCN = comlev1_bibj,key=iicekey,byte=isbyte  CADJ STORE r_QbyOCN = comlev1_bibj,key=iicekey,byte=isbyte
1664  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
1665    
1666          IF (.NOT.SEAICE_growMeltByConv) THEN
1667    
1668  #ifdef SEAICE_ITD  #ifdef SEAICE_ITD
1669          DO IT=1,nITD          DO IT=1,nITD
1670           DO J=1,sNy           DO J=1,sNy
# Line 1696  Cgf no additional dependency through sno Line 1702  Cgf no additional dependency through sno
1702           ENDDO           ENDDO
1703          ENDDO          ENDDO
1704  #endif /* SEAICE_ITD */  #endif /* SEAICE_ITD */
1705    
1706          endif !SEAICE_growMeltByConv
1707    
1708  #endif /* SEAICE_EXCLUDE_FOR_EXACT_AD_TESTING */  #endif /* SEAICE_EXCLUDE_FOR_EXACT_AD_TESTING */
1709  Cph)  Cph)
1710    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22