Ignore:
Timestamp:
2016-02-15T13:24:20+01:00 (5 years ago)
Author:
cetlod
Message:

3.6 stable : updates for XIO2 and iom_put of reference vertical scale factor and some PISCES diagnostics needed for CMIP6, see ticket #1678

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r6204 r6315  
    145145      ENDIF 
    146146 
     147      ! Output of initial vertical scale factor 
     148      CALL iom_put("e3t_0", e3t_0(:,:,:) ) 
     149      CALL iom_put("e3u_0", e3t_0(:,:,:) ) 
     150      CALL iom_put("e3v_0", e3t_0(:,:,:) ) 
     151      ! 
    147152      IF( .NOT.lk_vvl ) THEN 
    148153         CALL iom_put( "e3t" , fse3t_n(:,:,:) ) 
     
    153158 
    154159      CALL iom_put( "ssh" , sshn )                 ! sea surface height 
    155       if( iom_use('ssh2') )   CALL iom_put( "ssh2", sshn(:,:) * sshn(:,:) )   ! square of sea surface height 
    156160       
    157161      CALL iom_put( "toce", tsn(:,:,:,jp_tem) )    ! 3D temperature 
Note: See TracChangeset for help on using the changeset viewer.