Ignore:
Timestamp:
2019-11-08T18:25:33+01:00 (11 months ago)
Author:
stefryn
Message:

add anisotropy output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/ICE/icedyn_rhg_eap.F90

    r11877 r11878  
    797797         DEALLOCATE( zsig1 , zsig2 , zsig3 ) 
    798798      ENDIF 
     799 
     800      ! --- anisotropy tensor --- ! 
     801      IF( iom_use('aniso') ) THEN 
     802         CALL iom_put( 'aniso' , aniso_11 * zmsk00 ) 
     803      ENDIF 
    799804       
    800805      ! --- SIMIP --- ! 
Note: See TracChangeset for help on using the changeset viewer.