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 6010 for branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2015-12-07T14:32:39+01:00 (8 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.