/[MITgcm]/MITgcm/pkg/thsice/thsice_step_temp.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_step_temp.F

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

revision 1.4 by heimbach, Tue Apr 17 23:42:33 2007 UTC revision 1.5 by jmc, Thu Apr 19 02:59:29 2007 UTC
# Line 106  C-    Initialise flxAtm,evpAtm Line 106  C-    Initialise flxAtm,evpAtm
106         ENDDO         ENDDO
107    
108  cph(  cph(
109            print *, 'ph-thsice-3a in thsice_main'  c         print *, 'ph-thsice-3a in thsice_main'
110  cph)  cph)
111  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
112  CADJ STORE tsrf(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE tsrf(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
# Line 122  c     IF ( fluidIsWater ) THEN Line 122  c     IF ( fluidIsWater ) THEN
122       I          myTime, myIter, myThid )       I          myTime, myIter, myThid )
123    
124  cph(  cph(
125            print *, 'ph-thsice-3b in thsice_main'  c         print *, 'ph-thsice-3b in thsice_main'
126  cph)  cph)
127  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
128  C    part.1 : ice-covered fraction ;  C    part.1 : ice-covered fraction ;
# Line 155  C-      surface net SW flux: Line 155  C-      surface net SW flux:
155         ENDDO         ENDDO
156    
157  cph(  cph(
158            print *, 'ph-thsice-3c in thsice_main'  c         print *, 'ph-thsice-3c in thsice_main'
159  cph)  cph)
160  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
161  CADJ STORE qice1(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte  CADJ STORE qice1(:,:,bi,bj) = comlev1_bibj, key=iicekey, byte=isbyte
# Line 174  CADJ STORE qice2(:,:,bi,bj) = comlev1_bi Line 174  CADJ STORE qice2(:,:,bi,bj) = comlev1_bi
174       O          icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj),       O          icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj),
175       I          myTime, myIter, myThid )       I          myTime, myIter, myThid )
176  cph(  cph(
177            print *, 'ph-thsice-3d in thsice_main'  c         print *, 'ph-thsice-3d in thsice_main'
178  cph)  cph)
179    
180  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22