Changeset 5676 for branches/2015/dev_r5656_Met_Office_3_diurnalSST/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2015-08-10T17:39:59+02:00 (9 years ago)

Author:

jwhile

Message:

Adding cool skin and warm layer + associated modifications

File:

• branches/2015/dev_r5656_Met_Office_3_diurnalSST/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/2015/dev_r5656_Met_Office_3_diurnalSST/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -55 +55 @@
    USE lib_mpp         ! MPP library
    USE timing          ! preformance summary
+   USE diurnal_bulk    ! diurnal warm layer
+   USE cool_skin       ! Cool skin
    USE wrk_nemo        ! working array
 
@@ -145 +147 @@
       ENDIF
 
+      IF(ln_diurnal) THEN
+         CALL iom_put( "sst_wl"   , x_dsst               )    ! warm layer
+         CALL iom_put( "sst_cs"   , x_csdsst             )    ! cool skin
+      ENDIF
+       
+      IF( ln_diurnal_only ) RETURN 
+      
       IF( .NOT.lk_vvl ) THEN
          CALL iom_put( "e3t" , fse3t_n(:,:,:) )