- Timestamp:
- 2010-12-20T16:28:20+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r2287 r2496 66 66 USE oce 67 67 USE dom_oce 68 USE opa68 USE nemogcm 69 69 #if defined key_top 70 70 USE trc … … 111 111 #endif 112 112 113 Call opa_init ! Initializations of each fine grid114 Call agrif_ opa_init113 Call nemo_init ! Initializations of each fine grid 114 Call agrif_nemo_init 115 115 116 116 ! 1. Declaration of the type of variable which have to be interpolated … … 339 339 USE oce 340 340 USE dom_oce 341 USE opa341 USE nemogcm 342 342 USE trc 343 343 USE in_out_manager … … 359 359 #endif 360 360 361 Call opa_init ! Initializations of each fine grid362 Call agrif_ opa_init361 Call nemo_init ! Initializations of each fine grid 362 Call agrif_nemo_init 363 363 364 364 ! 1. Declaration of the type of variable which have to be interpolated … … 473 473 474 474 475 SUBROUTINE agrif_ opa_init475 SUBROUTINE agrif_nemo_init 476 476 !!---------------------------------------------------------------------- 477 477 !! *** ROUTINE agrif_init *** … … 484 484 NAMELIST/namagrif/ nn_cln_update, rn_sponge_tra, rn_sponge_dyn, ln_spc_dyn 485 485 !!---------------------------------------------------------------------- 486 486 ! 487 487 REWIND( numnam ) ! Read namagrif namelist 488 488 READ ( numnam, namagrif ) … … 490 490 IF(lwp) THEN ! control print 491 491 WRITE(numout,*) 492 WRITE(numout,*) 'agrif_ opa_init : AGRIF parameters'493 WRITE(numout,*) '~~~~~~~~~~~~ '492 WRITE(numout,*) 'agrif_nemo_init : AGRIF parameters' 493 WRITE(numout,*) '~~~~~~~~~~~~~~~' 494 494 WRITE(numout,*) ' Namelist namagrif : set AGRIF parameters' 495 495 WRITE(numout,*) ' baroclinic update frequency nn_cln_update = ', nn_cln_update … … 505 505 visc_dyn = rn_sponge_dyn 506 506 ! 507 END SUBROUTINE agrif_ opa_init507 END SUBROUTINE agrif_nemo_init 508 508 509 509 # if defined key_mpp_mpi … … 520 520 !!---------------------------------------------------------------------- 521 521 ! 522 SELECT CASE(i) 523 CASE(1) 524 indglob = indloc + nimppt(nprocloc+1) - 1 525 CASE(2) 526 indglob = indloc + njmppt(nprocloc+1) - 1 527 CASE(3) 528 indglob = indloc 529 CASE(4) 530 indglob = indloc 522 SELECT CASE( i ) 523 CASE(1) ; indglob = indloc + nimppt(nprocloc+1) - 1 524 CASE(2) ; indglob = indloc + njmppt(nprocloc+1) - 1 525 CASE(3) ; indglob = indloc 526 CASE(4) ; indglob = indloc 531 527 END SELECT 532 528 !
Note: See TracChangeset
for help on using the changeset viewer.