Changeset 782 for trunk/NEMO/NST_SRC/agrif_user.F90
- Timestamp:
- 2008-01-07T10:07:26+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/NST_SRC/agrif_user.F90
r719 r782 65 65 USE ice_oce 66 66 #endif 67 #if defined key_agrif68 67 USE agrif_opa_update 69 68 USE agrif_opa_interp … … 71 70 USE agrif_top_update 72 71 USE agrif_top_interp 73 #endif74 72 75 73 IMPLICIT NONE … … 89 87 90 88 Call opa_init ! Initializations of each fine grid 89 Call agrif_opa_init 91 90 92 91 ! Specific fine grid Initializations … … 311 310 End SUBROUTINE Agrif_detect 312 311 312 SUBROUTINE agrif_opa_init 313 !!--------------------------------------------- 314 !! *** ROUTINE agrif_init *** 315 !!--------------------------------------------- 316 USE agrif_oce 317 USE in_out_manager 318 319 IMPLICIT NONE 320 321 NAMELIST/namagrif/ nbclineupdate, visc_tra, visc_dyn, ln_spc_dyn 322 323 REWIND ( numnam ) 324 READ ( numnam, namagrif ) 325 IF(lwp) THEN 326 WRITE(numout,*) 327 WRITE(numout,*) 'agrif_opa_init : agrif parameters' 328 WRITE(numout,*) '~~~~~~~~~~~~' 329 WRITE(numout,*) ' Namelist namagrif : set agrif parameters' 330 WRITE(numout,*) ' baroclinic update frequency = ', nbclineupdate 331 WRITE(numout,*) ' sponge coefficient for tracers = ', visc_tra 332 WRITE(numout,*) ' sponge coefficient for dynamics = ', visc_dyn 333 WRITE(numout,*) ' use special values for dynamics = ', ln_spc_dyn 334 WRITE(numout,*) 335 ENDIF 336 337 END SUBROUTINE agrif_opa_init 313 338 #if defined key_mpp_mpi 314 315 339 SUBROUTINE Agrif_InvLoc(indloc,nprocloc,i,indglob) 316 340 !!------------------------------------------ … … 335 359 336 360 END SUBROUTINE Agrif_InvLoc 337 338 #endif 339 361 #endif 340 362 #else 341 363 SUBROUTINE Subcalledbyagrif
Note: See TracChangeset
for help on using the changeset viewer.