New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11878 for NEMO/branches/2019/dev_r11842_SI3-10_EAP/src – NEMO

Ignore:
Timestamp:
2019-11-08T18:25:33+01:00 (4 years 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.