Changeset 2528 for trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
- Property svn:eol-style deleted
r2031 r2528 1 1 #if defined key_agrif 2 2 !!---------------------------------------------------------------------- 3 !! OPA 9.0 , LOCEAN-IPSL (2006)3 !! NEMO/NST 3.3 , NEMO Consortium (2010) 4 4 !! $Id$ 5 !! Software governed by the CeCILL licence ( modipsl/doc/NEMO_CeCILL.txt)5 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 6 6 !!---------------------------------------------------------------------- 7 7 … … 55 55 END SUBROUTINE Agrif_InitWorkspace 56 56 57 #if ! defined key_off _tra57 #if ! defined key_offline 58 58 59 59 SUBROUTINE Agrif_InitValues … … 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 … … 308 308 #if defined key_top 309 309 ! Check passive tracer cell 310 IF( n dttrc .ne. 1 ) THEN311 WRITE(*,*) 'n dttrc should be equal to 1'310 IF( nn_dttrc .ne. 1 ) THEN 311 WRITE(*,*) 'nn_dttrc should be equal to 1' 312 312 ENDIF 313 313 #endif … … 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 … … 445 445 ENDIF 446 446 ! Check passive tracer cell 447 IF( n dttrc .ne. 1 ) THEN448 WRITE(*,*) 'n dttrc should be equal to 1'447 IF( nn_dttrc .ne. 1 ) THEN 448 WRITE(*,*) 'nn_dttrc should be equal to 1' 449 449 ENDIF 450 450 … … 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.