Changeset 748


Ignore:
Timestamp:
2007-12-07T11:51:15+01:00 (14 years ago)
Author:
ctlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_SBC/NEMO/OPA_SRC/DIA/diawri.F90

    r717 r748  
    280280#endif 
    281281 
    282 #if defined key_flx_core 
    283          CALL histdef( nid_T, "solhflup", "Latent Heat Flux Upward"         , "W/m2"   ,   &  ! qla 
    284             &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    285          CALL histdef( nid_T, "solwfldo", "Longwave Radiation downward"     , "W/m2"   ,   &  ! qlw 
    286             &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    287          CALL histdef( nid_T, "sosbhfup", "Sensible Heat Flux upward"       , "W/m2"   ,   &  ! qsb 
    288             &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    289 #endif 
    290282 
    291283 
     
    441433      zw2d(:,:) = erp(:,:) * sn(:,:,1) * tmask(:,:,1) 
    442434      CALL histwrite( nid_T, "sosafldp", it, zw2d          , ndim_hT, ndex_hT )   ! salt flux damping 
    443 #endif 
    444 #if defined key_flx_core 
    445       CALL histwrite( nid_T, "solhflup", it, qla           , ndim_hT, ndex_hT )   ! latent heat flux 
    446       CALL histwrite( nid_T, "solwfldo", it, qlw           , ndim_hT, ndex_hT )   ! longwave heat flux 
    447       CALL histwrite( nid_T, "sosbhfup", it, qsb           , ndim_hT, ndex_hT )   ! sensible heat flux 
    448435#endif 
    449436#if ( defined key_coupled && ! defined key_ice_lim )  
Note: See TracChangeset for help on using the changeset viewer.