Changeset 748

Timestamp:

2007-12-07T11:51:15+01:00 (16 years ago)

Author:

ctlod

Message:

remove the output of qla, qsb and qlw for CORE forcing, see ticket:#28

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/dev_001_SBC/NEMO/OPA_SRC/DIA/diawri.F90

@@ -280 +280 @@
 #endif
 
-#if defined key_flx_core
-         CALL histdef( nid_T, "solhflup", "Latent Heat Flux Upward"         , "W/m2"   ,   &  ! qla
-            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
-         CALL histdef( nid_T, "solwfldo", "Longwave Radiation downward"     , "W/m2"   ,   &  ! qlw
-            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
-         CALL histdef( nid_T, "sosbhfup", "Sensible Heat Flux upward"       , "W/m2"   ,   &  ! qsb
-            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
-#endif
 
 
@@ -441 +433 @@
       zw2d(:,:) = erp(:,:) * sn(:,:,1) * tmask(:,:,1)
       CALL histwrite( nid_T, "sosafldp", it, zw2d          , ndim_hT, ndex_hT )   ! salt flux damping
-#endif
-#if defined key_flx_core
-      CALL histwrite( nid_T, "solhflup", it, qla           , ndim_hT, ndex_hT )   ! latent heat flux
-      CALL histwrite( nid_T, "solwfldo", it, qlw           , ndim_hT, ndex_hT )   ! longwave heat flux
-      CALL histwrite( nid_T, "sosbhfup", it, qsb           , ndim_hT, ndex_hT )   ! sensible heat flux
 #endif
 #if ( defined key_coupled && ! defined key_ice_lim )