trcwri_my_trc.F90 2.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859
  1. MODULE trcwri_my_trc
  2. !!======================================================================
  3. !! *** MODULE trcwri ***
  4. !! my_trc : Output of my_trc tracers
  5. !!======================================================================
  6. !! History : 1.0 ! 2009-05 (C. Ethe) Original code
  7. !!----------------------------------------------------------------------
  8. #if defined key_top && defined key_my_trc && defined key_iomput
  9. !!----------------------------------------------------------------------
  10. !! 'key_my_trc' my_trc model
  11. !!----------------------------------------------------------------------
  12. !! trc_wri_my_trc : outputs of concentration fields
  13. !!----------------------------------------------------------------------
  14. USE trc ! passive tracers common variables
  15. USE iom ! I/O manager
  16. IMPLICIT NONE
  17. PRIVATE
  18. PUBLIC trc_wri_my_trc
  19. # include "top_substitute.h90"
  20. CONTAINS
  21. SUBROUTINE trc_wri_my_trc
  22. !!---------------------------------------------------------------------
  23. !! *** ROUTINE trc_wri_trc ***
  24. !!
  25. !! ** Purpose : output passive tracers fields
  26. !!---------------------------------------------------------------------
  27. CHARACTER (len=20) :: cltra
  28. INTEGER :: jn
  29. !!---------------------------------------------------------------------
  30. ! write the tracer concentrations in the file
  31. ! ---------------------------------------
  32. DO jn = jp_myt0, jp_myt1
  33. cltra = TRIM( ctrcnm(jn) ) ! short title for tracer
  34. CALL iom_put( cltra, trn(:,:,:,jn) )
  35. END DO
  36. !
  37. END SUBROUTINE trc_wri_my_trc
  38. #else
  39. !!----------------------------------------------------------------------
  40. !! Dummy module : No passive tracer
  41. !!----------------------------------------------------------------------
  42. PUBLIC trc_wri_my_trc
  43. CONTAINS
  44. SUBROUTINE trc_wri_my_trc ! Empty routine
  45. END SUBROUTINE trc_wri_my_trc
  46. #endif
  47. !!----------------------------------------------------------------------
  48. !! NEMO/TOP 3.3 , NEMO Consortium (2010)
  49. !! $Id: trcwri_my_trc.F90 3160 2011-11-20 14:27:18Z cetlod $
  50. !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
  51. !!======================================================================
  52. END MODULE trcwri_my_trc