Ignore:
Timestamp:
10/17/17 19:24:28 (7 years ago)
Author:
aquiquet
Message:

Series of minor bug corrections for initMIP Antarctica configuration

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/mix-SIA-L1_mod.f90

    r143 r144  
    175175 
    176176  !$OMP WORKSHARE 
    177   debug_3d(:,:,111) = (ux  (:,:,1)  + eoshift( ux(:,:,1) ,shift=1,boundary=0.,dim=1))/2. 
    178   debug_3d(:,:,112) = (uy  (:,:,1)  + eoshift( uy(:,:,1) ,shift=1,boundary=0.,dim=2))/2. 
    179   debug_3d(:,:,113) = uzr (:,:,1) * ice(:,:) 
    180   debug_3d(:,:,114) = (ux  (:,:,nz) + eoshift( ux(:,:,nz),shift=1,boundary=0.,dim=1))/2. 
    181   debug_3d(:,:,115) = (uy  (:,:,nz) + eoshift( uy(:,:,nz),shift=1,boundary=0.,dim=2))/2. 
    182   debug_3d(:,:,116) = uzr (:,:,nz) * ice(:,:) 
     177  debug_3d(:,:,111) = ( (ux  (:,:,1)  + eoshift( ux(:,:,1) ,shift=1,boundary=0.,dim=1))/2.  )/secyear 
     178  debug_3d(:,:,112) = ( (uy  (:,:,1)  + eoshift( uy(:,:,1) ,shift=1,boundary=0.,dim=2))/2.  )/secyear 
     179  debug_3d(:,:,113) = ( uzr (:,:,1) * ice(:,:)                                              )/secyear 
     180  debug_3d(:,:,114) = ( (ux  (:,:,nz) + eoshift( ux(:,:,nz),shift=1,boundary=0.,dim=1))/2.  )/secyear 
     181  debug_3d(:,:,115) = ( (uy  (:,:,nz) + eoshift( uy(:,:,nz),shift=1,boundary=0.,dim=2))/2.  )/secyear 
     182  debug_3d(:,:,116) = ( uzr (:,:,nz) * ice(:,:)                                             )/secyear 
    183183  !$OMP END WORKSHARE 
    184184 
Note: See TracChangeset for help on using the changeset viewer.