Ignore:
Timestamp:
2015-12-07T14:32:39+01:00 (5 years ago)
Author:
timgraham
Message:

Tidying of DIU code

File:
1 edited

Legend:

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

    r6005 r6010  
    145145      ENDIF 
    146146 
    147       IF(ln_diurnal) THEN 
    148          CALL iom_put( "sst_wl"   , x_dsst               )    ! warm layer 
    149          CALL iom_put( "sst_cs"   , x_csdsst             )    ! cool skin 
    150       ENDIF 
    151         
    152       IF( ln_diurnal_only ) RETURN  
    153        
    154147      IF( .NOT.lk_vvl ) THEN 
    155148         CALL iom_put( "e3t" , fse3t_n(:,:,:) ) 
Note: See TracChangeset for help on using the changeset viewer.