Changeset 454 for trunk/NEMO/OPA_SRC/DOM/domstp.F90
- Timestamp:
- 2006-05-10T18:47:31+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domstp.F90
r247 r454 7 7 !!---------------------------------------------------------------------- 8 8 !! dom_stp : ocean time domain initialization 9 !!---------------------------------------------------------------------- 10 !! History : 11 !! ! 90-10 (O. Marti) Original code 12 !! ! 96-01 (G. Madec) terrain following coordinates 13 !! 8.5 ! 02-08 (G. Madec) F90: Free form and module 9 14 !!---------------------------------------------------------------------- 10 15 !! * Modules used … … 24 29 !! OPA 9.0 , LOCEAN-IPSL (2005) 25 30 !! $Header$ 26 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt31 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 27 32 !!---------------------------------------------------------------------- 28 33 … … 56 61 !! References : 57 62 !! Bryan, K., 1984, J. Phys. Oceanogr., 14, 666-673. 58 !!59 !! History :60 !! ! 90-10 (O. Marti) Original code61 !! ! 96-01 (G. Madec) terrain following coordinates62 !! 8.5 ! 02-08 (G. Madec) F90: Free form and module63 63 !!---------------------------------------------------------------------- 64 !! * Local declarations65 64 INTEGER :: jk ! dummy loop indice 66 65 !!---------------------------------------------------------------------- … … 77 76 atfp1 = 1. - 2. * atfp 78 77 79 80 78 SELECT CASE ( nacc ) 81 79 … … 90 88 IF(lwp) WRITE(numout,*)' accelerating the convergence' 91 89 IF(lwp) WRITE(numout,*)' dynamics time step = ', rdt/3600., ' hours' 92 #if defined key_s_coord 93 IF( rdtmin /= rdtmax ) THEN 90 IF( ln_sco .AND. rdtmin /= rdtmax ) THEN 94 91 IF(lwp) WRITE(numout,cform_err) 95 92 IF(lwp) WRITE(numout,*)' depth dependent acceleration of & … … 97 94 nstop = nstop + 1 98 95 ENDIF 99 #endif100 #if defined key_partial_steps101 IF( rdtmin /= rdtmax ) THEN102 IF(lwp) WRITE(numout,cform_err)103 IF(lwp) WRITE(numout,*)' depth dependent acceleration of &104 &convergence not implemented for partial steps case'105 nstop = nstop + 1106 ENDIF107 #endif108 96 IF(lwp) WRITE(numout,*)' tracers time step : dt (hours) level' 109 97 110 98 DO jk = 1, jpk 111 IF( fsdept(1,1,jk) <= rdth ) rdttra(jk) = rdtmin112 IF( fsdept(1,1,jk) > rdth ) THEN99 IF( gdept_0(jk) <= rdth ) rdttra(jk) = rdtmin 100 IF( gdept_0(jk) > rdth ) THEN 113 101 rdttra(jk) = rdtmin + ( rdtmax - rdtmin ) & 114 * ( EXP( ( fsdept(1,1,jk ) - rdth ) / rdth ) - 1. ) &115 / ( EXP( ( fsdept(1,1,jpk) - rdth ) / rdth ) - 1. )102 * ( EXP( ( gdept_0(jk ) - rdth ) / rdth ) - 1. ) & 103 / ( EXP( ( gdept_0(jpk) - rdth ) / rdth ) - 1. ) 116 104 ENDIF 117 IF(lwp) WRITE(numout, 9200) rdttra(jk)/3600., jk105 IF(lwp) WRITE(numout,"(36x,f5.2,5x,i3)") rdttra(jk)/3600., jk 118 106 END DO 119 9200 FORMAT(36x,f5.2,' ',i3)120 107 121 108 CASE DEFAULT ! E R R O R
Note: See TracChangeset
for help on using the changeset viewer.