New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
dtasss.F90 in trunk/NEMO/OPA_SRC/DTA – NEMO

source: trunk/NEMO/OPA_SRC/DTA/dtasss.F90 @ 719

Last change on this file since 719 was 719, checked in by ctlod, 17 years ago

get back to the nemo_v2_3 version for trunk
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.5 KB
Line 
1MODULE dtasss
2   !!======================================================================
3   !!                       ***  MODULE  dtasss  ***
4   !! Data : Sea Surface Salinity (SSS)
5   !!======================================================================
6   
7   !!----------------------------------------------------------------------
8   !!   dta_sss      : sss data
9   !!----------------------------------------------------------------------
10   !! * Modules used
11   USE oce             ! ocean dynamics and tracers
12   USE dom_oce         ! ocean space and time domain
13   USE in_out_manager  ! I/O manager
14   USE ocfzpt          ! ???
15   USE daymod          ! calendar
16
17   IMPLICIT NONE
18   PRIVATE
19
20   !! * Shared routine
21   PUBLIC dta_sss
22
23   !! * Shared module variables
24#if defined key_dtasss
25   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasss = .TRUE.   !: sss data flag
26#else
27   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasss = .FALSE.  !: sss data flag
28#endif
29   INTEGER ::   numsss         !: logical unit for surface salinity data
30   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !:
31      sss             !: surface salinity
32
33   !!----------------------------------------------------------------------
34   !!   OPA 9.0 , IPSL-LODYC  (2005)
35   !!----------------------------------------------------------------------
36
37CONTAINS
38
39#if defined key_dtasss
40   !!----------------------------------------------------------------------
41   !!   'key_dtasss'                                               SSS data
42   !!----------------------------------------------------------------------
43
44   SUBROUTINE dta_sss( kt )
45      !!---------------------------------------------------------------------
46      !!                  ***  ROUTINE dta_sss  ***
47      !!                   
48      !! ** Purpose :   Read surface salinity data
49      !!
50      !! ** Method  : - Read a specific sss.
51      !!
52      !! ** Action  : - sss
53      !!
54      !! History :
55      !!        !  90-03  (O. Marti and Ph Dandin)  Original code
56      !!        !  92-07  (M. Imbard)
57      !!        !  96-11  (E. Guilyardi)  Daily AGCM input files
58      !!        !  00-04  (M. Imbard)  NetCDF FORMAT
59      !!        !  00-10  (J.-P. Boulanger)  passage ORCA a TDH
60      !!        !  01-10  (A. Lazar)  Reynolds default
61      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
62      !!        !  02-11  (C. Levy)  MPP/MPI NetCDF read
63      !!        !  05-03  (M. Levy) adapt SST to SSS
64      !!----------------------------------------------------------------------
65      !! * Modules used
66      USE iom
67     
68      !! * Arguments
69      INTEGER ::   kt
70
71      !!----------------------------------------------------------------------
72
73      IF( kt == nit000 ) THEN
74
75         IF(lwp) WRITE(numout,*)
76         IF(lwp) WRITE(numout,*) 'dta_sss : yearly mean sea surface salinity data'
77
78         CALL iom_open ( 'sss.nc', numsss ) 
79         CALL iom_get ( numsss, jpdom_data, 'sss', sss, 1 )
80         CALL iom_close ( numsss )
81
82         sss(:,:) = sss(:,:)*tmask(:,:,1)
83
84         IF( lwp ) THEN
85            WRITE(numout,*) ' '
86            WRITE(numout,*) ' read  sea surface salinity ok'
87            WRITE(numout,*) ' '
88            CALL prihre(sss(:,:),jpi,jpj,1,jpi,20,1,jpj,10,1.,numout)
89         ENDIF
90
91      ENDIF
92
93   END SUBROUTINE dta_sss
94
95#else
96   !!----------------------------------------------------------------------
97   !!   Default option :                                        NO SSS data
98   !!----------------------------------------------------------------------
99
100   SUBROUTINE dta_sss( kt )
101      !!---------------------------------------------------------------------
102      !!                  ***  ROUTINE dta_sss  ***
103      !!                   
104      !! ** Purpose :   sea surface salinity data and update it
105      !!     at each time step.   ???
106      !!
107      !! ** Method  : - sss 
108      !!
109      !! History :
110      !!        !  91-03  ()  Original code
111      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
112      !!----------------------------------------------------------------------
113      !! * Arguments
114      INTEGER, INTENT( in ) ::   kt      ! ocean timestep
115      !!---------------------------------------------------------------------
116     
117      IF( kt == nit000 ) THEN
118         IF(lwp) WRITE(numout,*)
119         IF(lwp) WRITE(numout,*) 'dta_sss : No SSS data'
120         IF(lwp) WRITE(numout,*) '~~~~~~~'
121      ENDIF
122
123     
124   END SUBROUTINE dta_sss
125#endif
126
127   !!======================================================================
128END MODULE dtasss
Note: See TracBrowser for help on using the repository browser.