Ignore:
Timestamp:
2015-12-04T17:22:59+01:00 (5 years ago)
Author:
timgraham
Message:

Merged diurnal sst branch

File:
1 edited

Legend:

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

    r5930 r6005  
    5353   USE lib_mpp         ! MPP library 
    5454   USE timing          ! preformance summary 
     55   USE diurnal_bulk    ! diurnal warm layer 
     56   USE cool_skin       ! Cool skin 
    5557   USE wrk_nemo        ! working array 
    5658 
     
    143145      ENDIF 
    144146 
     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       
    145154      IF( .NOT.lk_vvl ) THEN 
    146155         CALL iom_put( "e3t" , fse3t_n(:,:,:) ) 
Note: See TracChangeset for help on using the changeset viewer.