Changeset 719 for trunk/NEMO/C1D_SRC
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- Location:
- trunk/NEMO/C1D_SRC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/C1D_SRC/diawri1d.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r714 r719 13 13 USE dom_oce ! ocean space and time domain 14 14 USE zdf_oce ! ocean vertical physics 15 USE sbc_oce ! surface boundary condition: ocean16 USE sbc_ice ! surface boundary condition: ice17 15 USE zdftke ! TKE vertical mixing 18 16 USE zdfkpp ! KPP vertical mixing … … 21 19 USE phycst ! physical constants 22 20 USE ocfzpt ! ??? 21 USE ocesbc ! surface thermohaline fluxes 22 USE taumod ! surface stress 23 USE flxrnf ! ??? 23 24 USE zdfmxl ! mixed layer 24 25 USE daymod ! calendar … … 48 49 !!---------------------------------------------------------------------- 49 50 !! OPA 9.0 , LOCEAN-IPSL (2005) 50 !! $ Id$51 !! $Header$ 51 52 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 52 53 !!---------------------------------------------------------------------- … … 210 211 CALL histdef( nid_T, "sosalflx", "Surface Salt Flux" , "Kg/m2/s", & ! emps * sn 211 212 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 212 CALL histdef( nid_T, "sohefldo", "Net Downward Heat Flux" , "W/m2" , & ! q sr + qns213 CALL histdef( nid_T, "sohefldo", "Net Downward Heat Flux" , "W/m2" , & ! qt 213 214 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 214 215 CALL histdef( nid_T, "soshfldo", "Shortwave Radiation" , "W/m2" , & ! qsr … … 274 275 #endif 275 276 ! !!! nid_U : 2D 276 CALL histdef( nid_T, "sozotaux", "Wind Stress along i-axis" , "N/m2" , & ! utau277 CALL histdef( nid_T, "sozotaux", "Wind Stress along i-axis" , "N/m2" , & ! taux 277 278 & jpi, jpj, nh_T, 1 , 1, 1 , - 99, 32, clop, zsto, zout ) 278 279 … … 285 286 #endif 286 287 ! !!! nid_V : 2D 287 CALL histdef( nid_T, "sometauy", "Wind Stress along j-axis" , "N/m2" , & ! vtau288 CALL histdef( nid_T, "sometauy", "Wind Stress along j-axis" , "N/m2" , & ! tauy 288 289 & jpi, jpj, nh_T, 1 , 1, 1 , - 99, 32, clop, zsto, zout ) 289 290 #if defined key_zdftke … … 373 374 zw2d(:,:) = emps(:,:) * sn(:,:,1) * tmask(:,:,1) 374 375 CALL histwrite( nid_T, "sosalflx", it, zw2d , ndim_hT, ndex_hT ) ! c/d salt flux 375 CALL histwrite( nid_T, "sohefldo", it, q sr + qns, ndim_hT, ndex_hT ) ! total heat flux376 CALL histwrite( nid_T, "sohefldo", it, qt , ndim_hT, ndex_hT ) ! total heat flux 376 377 CALL histwrite( nid_T, "soshfldo", it, qsr , ndim_hT, ndex_hT ) ! solar heat flux 377 378 CALL histwrite( nid_T, "somxl010", it, hmlp , ndim_hT, ndex_hT ) ! mixed layer depth … … 417 418 418 419 CALL histwrite( nid_T, "vozocrtx", it, un , ndim_T , ndex_T ) ! i-current 419 CALL histwrite( nid_T, "sozotaux", it, utau, ndim_hT, ndex_hT ) ! i-wind stress420 CALL histwrite( nid_T, "sozotaux", it, taux , ndim_hT, ndex_hT ) ! i-wind stress 420 421 CALL histwrite( nid_T, "vomecrty", it, vn , ndim_T , ndex_T ) ! j-current 421 CALL histwrite( nid_T, "sometauy", it, vtau, ndim_hT, ndex_hT ) ! j-wind stress422 CALL histwrite( nid_T, "sometauy", it, tauy , ndim_hT, ndex_hT ) ! j-wind stress 422 423 #if defined key_zdftke 423 424 CALL histwrite( nid_T, "votlsdis", it, e_dis , ndim_T , ndex_T ) ! Diss. Turb. lenght scale -
trunk/NEMO/C1D_SRC/dyncor1d.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 30 30 !!---------------------------------------------------------------------- 31 31 !! OPA 9.0 , LOCEAN-IPSL (2005) 32 !! $ Id$32 !! $Header$ 33 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 34 34 !!---------------------------------------------------------------------- -
trunk/NEMO/C1D_SRC/dynnxt1d.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 65 65 !!---------------------------------------------------------------------- 66 66 !! OPA 9.0 , LOCEAN-IPSL (2005) 67 !! $ Id$67 !! $Header$ 68 68 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 69 69 !!---------------------------------------------------------------------- -
trunk/NEMO/C1D_SRC/icestp1d.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r714 r719 18 18 USE in_out_manager ! I/O manager 19 19 USE ice_oce ! ice variables 20 USE flx_oce ! forcings variables 20 21 USE dom_ice ! LIM sea-ice domain 21 USE sbc_oce ! surface boundary condition: ocean22 USE sbc_ice ! surface boundary condition: ice22 USE cpl_oce ! coupled ocean-atmosphere variables 23 USE blk_oce ! bulk variables 23 24 USE daymod ! calendar 24 25 USE phycst ! Define parameters for the routines 26 USE taumod ! surface stress forcing 25 27 USE ice ! ice variables 26 28 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 27 29 USE limthd 30 USE limflx 28 31 USE limwri 29 32 USE limrst 30 33 34 USE ocesbc ! thermohaline fluxes 35 USE flxmod ! thermohaline forcing 36 USE flxrnf ! runoffs forcing 31 37 USE tradmp ! damping salinity trend 32 38 USE dtatem ! ocean temperature data … … 46 52 !!---------------------------------------------------------------------- 47 53 !! LIM 2.0 , UCL-LOCEAN-IPSL (2006) 48 !! $ Id$54 !! $Header$ 49 55 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 50 56 !!---------------------------------------------------------------------- … … 103 109 u_io (:,:) = u_io (:,:) / FLOAT( nfice ) 104 110 v_io (:,:) = v_io (:,:) / FLOAT( nfice ) 105 gtaux (:,:) = utau(:,:)106 gtauy (:,:) = vtau(:,:)111 gtaux (:,:) = taux (:,:) 112 gtauy (:,:) = tauy (:,:) 107 113 108 114 zsss_io (:,:) = SQRT( sss_io(:,:) ) … … 214 220 IF( kt == nit000 ) THEN 215 221 qsr (:,:) = 0.e0 216 q ns(:,:) = 0.e0222 qt (:,:) = 0.e0 217 223 qrp (:,:) = 0.e0 218 224 emp (:,:) = 0.e0 … … 232 238 ! ----------------- 233 239 234 q ns (:,:) = fnsolar(:,:) ! non solar heatflux240 qt (:,:) = fnsolar(:,:) + fsolar(:,:) ! non solar heat flux + solar flux 235 241 qsr (:,:) = fsolar(:,:) ! solar flux 236 242 … … 255 261 DO ji = 1, fs_jpim1 ! vertor opt. 256 262 ztxy = freezn(ji,jj) ! ice/ocean indicator at T-points 257 utau(ji,jj) = (1.-ztxy) * utau(ji,jj) + ztxy * ftaux(ji,jj) ! stress at the ocean surface258 vtau(ji,jj) = (1.-ztxy) * vtau(ji,jj) + ztxy * ftauy(ji,jj)259 END DO 260 END DO 261 262 ! boundary condition on the stress ( utau,vtau)263 CALL lbc_lnk( utau, 'U', -1. )264 CALL lbc_lnk( vtau, 'V', -1. )263 taux(ji,jj) = (1.-ztxy) * taux(ji,jj) + ztxy * ftaux(ji,jj) ! stress at the ocean surface 264 tauy(ji,jj) = (1.-ztxy) * tauy(ji,jj) + ztxy * ftauy(ji,jj) 265 END DO 266 END DO 267 268 ! boundary condition on the stress (taux,tauy) 269 CALL lbc_lnk( taux, 'U', -1. ) 270 CALL lbc_lnk( tauy, 'V', -1. ) 265 271 266 272 ! Re-initialization of fluxes -
trunk/NEMO/C1D_SRC/ini1d.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 26 26 !!---------------------------------------------------------------------- 27 27 !! OPA 9.0 , LOCEAN-IPSL (2005) 28 !! $ Id$28 !! $Header$ 29 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 30 !!---------------------------------------------------------------------- -
trunk/NEMO/C1D_SRC/step1d.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r717 r719 15 15 USE dom_oce ! ocean space and time domain variables 16 16 USE zdf_oce ! ocean vertical physics variables 17 USE sbc_oce ! surface boundary condition: ocean18 17 USE ldftra_oce 19 18 USE ldfdyn_oce … … 25 24 USE dtatem ! ocean temperature data (dta_tem routine) 26 25 USE dtasal ! ocean salinity data (dta_sal routine) 26 USE dtasst ! ocean sea surface temerature (dta_sst routine) 27 USE taumod ! surface stress (tau routine) 28 USE flxmod ! thermohaline fluxes (flx routine) 29 USE ocesbc ! thermohaline fluxes (oce_sbc routine) 30 USE flxrnf ! runoffs (flx_rnf routine) 31 USE flxfwb ! freshwater budget correction (flx_fwb routine) 27 32 USE ocfzpt ! surface ocean freezing point (oc_fz_pt routine) 28 33 … … 70 75 !!---------------------------------------------------------------------- 71 76 !! OPA 9.0 , LOCEAN-IPSL (2005) 72 !! $ Id$77 !! $Header$ 73 78 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 74 79 !!---------------------------------------------------------------------- … … 152 157 CALL prt_ctl(tab2d_1=emp , clinfo1=' emp - : ', mask1=tmask, ovlap=1) 153 158 CALL prt_ctl(tab2d_1=emps , clinfo1=' emps - : ', mask1=tmask, ovlap=1) 154 CALL prt_ctl(tab2d_1=q ns , clinfo1=' qns- : ', mask1=tmask, ovlap=1)159 CALL prt_ctl(tab2d_1=qt , clinfo1=' qt - : ', mask1=tmask, ovlap=1) 155 160 CALL prt_ctl(tab2d_1=qsr , clinfo1=' qsr - : ', mask1=tmask, ovlap=1) 161 CALL prt_ctl(tab2d_1=runoff , clinfo1=' runoff : ', mask1=tmask, ovlap=1) 156 162 CALL prt_ctl(tab3d_1=tmask , clinfo1=' tmask : ', mask1=tmask, ovlap=1, kdim=jpk) 157 163 CALL prt_ctl(tab3d_1=tn , clinfo1=' sst - : ', mask1=tmask, ovlap=1, kdim=1) 158 164 CALL prt_ctl(tab3d_1=sn , clinfo1=' sss - : ', mask1=tmask, ovlap=1, kdim=1) 159 CALL prt_ctl(tab2d_1= utau , clinfo1=' tau - u: ', mask1=umask, &160 & tab2d_2= vtau , clinfo2=' - v: ', mask2=vmask, ovlap=1)165 CALL prt_ctl(tab2d_1=taux , clinfo1=' tau - x : ', mask1=umask, & 166 & tab2d_2=tauy , clinfo2=' - y : ', mask2=vmask, ovlap=1) 161 167 ENDIF 162 168
Note: See TracChangeset
for help on using the changeset viewer.