- Timestamp:
- 2015-12-02T16:20:47+01:00 (9 years ago)
- Location:
- branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
- Property svn:keywords set to Id
r5075 r5980 31 31 !!---------------------------------------------------------------------- 32 32 !! NEMO/C1D 3.3 , NEMO Consortium (2010) 33 !! $Id : c1d.F90 2382 2010-11-13 13:08:12Z gm$33 !! $Id$ 34 34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 35 35 !!====================================================================== -
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/domc1d.F90
- Property svn:keywords set to Id
r5075 r5980 26 26 !!---------------------------------------------------------------------- 27 27 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 28 !! $Id : domc1d.F90 3851 2013-04-30 10:30:51Z hadcv$28 !! $Id$ 29 29 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 30 30 !!---------------------------------------------------------------------- -
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90
- Property svn:keywords set to Id
r4624 r5980 35 35 !!---------------------------------------------------------------------- 36 36 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 37 !! $Id : dtauvd.F90 2392 2010-11-15 21:20:05Z gm$37 !! $Id$ 38 38 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 39 39 !!---------------------------------------------------------------------- -
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
- Property svn:keywords set to Id
r2409 r5980 30 30 !!---------------------------------------------------------------------- 31 31 !! NEMO/C1D 3.3 , NEMO Consortium (2010) 32 !! $Id : dyncor_c1d.F90 2382 2010-11-13 13:08:12Z gm$32 !! $Id$ 33 33 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 34 34 !!---------------------------------------------------------------------- -
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90
- Property svn:keywords set to Id
r5075 r5980 3 3 !! *** MODULE dyndmp *** 4 4 !! Ocean dynamics: internal restoring trend on momentum (U and V current) 5 !! This should only be used for C1D case in current form 5 6 !!====================================================================== 6 7 !! History : 3.5 ! 2013-08 (D. Calvert) Original code 8 !! 3.6 ! 2014-08 (T. Graham) Modified to use netcdf file of 9 !! restoration coefficients supplied to tradmp 7 10 !!---------------------------------------------------------------------- 8 11 … … 25 28 USE wrk_nemo ! Memory allocation 26 29 USE timing ! Timing 30 USE iom ! I/O manager 27 31 28 32 IMPLICIT NONE … … 43 47 !!---------------------------------------------------------------------- 44 48 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 45 !! $Id : dyndmp.F90 3294 2012-01-28 16:44:18Z rblod$49 !! $Id$ 46 50 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 47 51 !!---------------------------------------------------------------------- … … 73 77 NAMELIST/namc1d_dyndmp/ ln_dyndmp 74 78 INTEGER :: ios 79 INTEGER :: imask 75 80 !!---------------------------------------------------------------------- 76 81 … … 91 96 WRITE(numout,*) ' add a damping term or not ln_dyndmp = ', ln_dyndmp 92 97 WRITE(numout,*) ' Namelist namtra_dmp : Set damping parameters' 93 WRITE(numout,*) ' horizontal damping option nn_hdmp = ', nn_hdmp 94 WRITE(numout,*) ' mixed layer damping option nn_zdmp = ', nn_zdmp, '(non-C1D zoom: forced to 0)' 95 WRITE(numout,*) ' surface time scale (days) rn_surf = ', rn_surf 96 WRITE(numout,*) ' bottom time scale (days) rn_bot = ', rn_bot 97 WRITE(numout,*) ' depth of transition (meters) rn_dep = ', rn_dep 98 WRITE(numout,*) ' create a damping.coeff file nn_file = ', nn_file 98 WRITE(numout,*) ' Apply relaxation or not ln_tradmp = ', ln_tradmp 99 WRITE(numout,*) ' mixed layer damping option nn_zdmp = ', nn_zdmp 100 WRITE(numout,*) ' Damping file name cn_resto = ', cn_resto 99 101 WRITE(numout,*) 100 102 ENDIF … … 104 106 IF( dyn_dmp_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'dyn_dmp_init: unable to allocate arrays' ) 105 107 ! 106 #if ! defined key_c1d107 SELECT CASE ( nn_hdmp ) !== control print of horizontal option ==!108 CASE ( -1 ) ; IF(lwp) WRITE(numout,*) ' momentum damping in the Med & Red seas only'109 CASE ( 1:90 ) ; IF(lwp) WRITE(numout,*) ' momentum damping poleward of', nn_hdmp, ' degrees'110 CASE DEFAULT111 WRITE(ctmp1,*) ' bad flag value for nn_hdmp = ', nn_hdmp112 CALL ctl_stop(ctmp1)113 END SELECT114 !115 #endif116 108 SELECT CASE ( nn_zdmp ) !== control print of vertical option ==! 117 109 CASE ( 0 ) ; IF(lwp) WRITE(numout,*) ' momentum damping throughout the water column' … … 130 122 utrdmp(:,:,:) = 0._wp ! internal damping trends 131 123 vtrdmp(:,:,:) = 0._wp 132 ! !== Damping coefficients calculation: ==! 133 ! !== use tradmp.F90 subroutines dtacof, dtacof_zoom and cofdis ==! 134 ! !!! NOTE: these need to be altered for use in this module if 135 ! !!! they are to be used outside the C1D context 136 ! !!! (use of U,V grid variables) 137 IF( lzoom .AND. .NOT. lk_c1d ) THEN ; CALL dtacof_zoom( resto_uv ) 138 ELSE ; CALL dtacof( nn_hdmp, rn_surf, rn_bot, rn_dep, nn_file, 'DYN', resto_uv ) 139 ENDIF 140 ! 124 ! 125 !Read in mask from file 126 CALL iom_open ( cn_resto, imask) 127 CALL iom_get ( imask, jpdom_autoglo, 'resto', resto) 128 CALL iom_close( imask ) 141 129 ENDIF 142 130 ! -
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/dynnxt_c1d.F90
- Property svn:keywords set to Id
r2409 r5980 25 25 !!---------------------------------------------------------------------- 26 26 !! NEMO/C1D 3.3 , NEMO Consortium (2010) 27 !! $Id : dynnxt_c1d.F90 2382 2010-11-13 13:08:12Z gm$27 !! $Id$ 28 28 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 29 29 !!---------------------------------------------------------------------- -
branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90
- Property svn:keywords set to Id
r5075 r5980 32 32 !!---------------------------------------------------------------------- 33 33 !! NEMO/C1D 3.3 , NEMO Consortium (2010) 34 !! $Id : step_c1d.F90 2382 2010-11-13 13:08:12Z gm$34 !! $Id$ 35 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- … … 72 72 ! Ocean physics update (ua, va, ta, sa used as workspace) 73 73 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 74 CALL eos_rab( tsb, rab_b ) ! before local thermal/haline expension ratio at T-points 75 CALL eos_rab( tsn, rab_n ) ! now local thermal/haline expension ratio at T-points 74 76 CALL bn2( tsb, rab_b, rn2b ) ! before Brunt-Vaisala frequency 75 77 CALL bn2( tsn, rab_n, rn2 ) ! now Brunt-Vaisala frequency … … 132 134 CALL tra_nxt( kstp ) ! tracer fields at next time step 133 135 136 137 134 138 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 135 139 ! Dynamics (ta, sa used as workspace) … … 150 154 IF( lrst_oce ) CALL rst_write( kstp ) ! write output ocean restart file 151 155 ! 156 #if defined key_iomput 157 IF( kstp == nitend .OR. indic < 0 ) CALL xios_context_finalize() ! needed for XIOS 158 ! 159 #endif 152 160 END SUBROUTINE stp_c1d 153 161
Note: See TracChangeset
for help on using the changeset viewer.