Changeset 418 for trunk/NEMO
- Timestamp:
- 2006-03-21T09:26:27+01:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domhgr.F90
r392 r418 110 110 zlam1, zcos_alpha, zim1 , zjm1 , ze1, ze1deg, & 111 111 zphi1, zsin_alpha, zim05, zjm05 112 113 real,dimension(:,:),pointer :: ffparent114 112 !!---------------------------------------------------------------------- 115 113 -
trunk/NEMO/OPA_SRC/DOM/dommsk.F90
r367 r418 501 501 !!---------------------------------------------------------------------- 502 502 !! *Local declarations 503 INTEGER :: ji, jj, jk, ii 503 INTEGER :: ji, jj, jk, ii, jl ! dummy loop indices 504 504 INTEGER :: ine, inw, ins, inn, itest, ierror, iind, ijnd 505 505 INTEGER, DIMENSION(jpi*jpj*jpk,3) :: icoord -
trunk/NEMO/OPA_SRC/DYN/dynvor.F90
r258 r418 676 676 !!---------------------------------------------------------------------- 677 677 !! * Local declarations 678 INTEGER :: ioptio = 0! temporary integer678 INTEGER :: ioptio ! temporary integer 679 679 680 680 NAMELIST/nam_dynvor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een … … 700 700 ENDIF 701 701 702 ioptio = 0 703 702 704 IF( ln_dynvor_ens ) THEN 703 705 IF(lwp) WRITE(numout,*) -
trunk/NEMO/OPA_SRC/OBC/obcdta.F90
r389 r418 84 84 REAL(wp) :: zxy 85 85 !! * Ajouts FD 86 INTEGER :: iyrel ! number of years since 199287 86 INTEGER :: isrel ! number of seconds since 1/1/1992 88 87 INTEGER, SAVE :: itobce, itobcw, & ! number of time steps in OBC files 89 88 itobcs, itobcn ! " " " " 90 89 INTEGER :: ikprint ! frequency for printouts. 91 INTEGER :: fid_e, fid_w, fid_n, fid_s , fid! file identifiers90 INTEGER :: fid_e, fid_w, fid_n, fid_s ! file identifiers 92 91 LOGICAL :: l_exv 93 INTEGER, DIMENSION(flio_max_dims) :: & 94 f_d , & ! dimensions lenght 95 start, & ! starting index read 96 count ! number of indices to be read 92 INTEGER, DIMENSION(flio_max_dims) :: f_d ! dimensions lenght 97 93 98 CHARACTER(LEN=25) :: f_name,v_name94 CHARACTER(LEN=25) :: v_name 99 95 !!-------------------------------------------------------------------- 100 96 … … 1188 1184 INTEGER, INTENT( in ) :: kbt ! barotropic ocean time-step index 1189 1185 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt 1186 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kbt 1190 1187 END SUBROUTINE obc_dta_bt 1191 1188 #endif … … 1276 1273 INTEGER, INTENT (in) :: kt, jn 1277 1274 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt 1275 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', jn 1278 1276 END SUBROUTINE obc_dta_bt 1279 1277 #endif -
trunk/NEMO/OPA_SRC/TRA/tradmp.F90
r392 r418 42 42 43 43 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: & 44 strdmp ! damping salinity trend (psu/s) 44 strdmp, & ! damping salinity trend (psu/s) 45 resto ! restoring coeff. on T and S (s-1) 45 46 46 47 !! * Module variables … … 53 54 bdmp = 360., & ! bottom time scale for internal damping (days) 54 55 hdmp = 800. ! depth of transition between sdmp and bdmp (meters) 55 56 REAL(wp), DIMENSION(jpi,jpj,jpk) :: &57 resto ! restoring coeff. on T and S (s-1)58 56 59 57 !! * Substitutions
Note: See TracChangeset
for help on using the changeset viewer.