Changeset 2676


Ignore:
Timestamp:
2011-03-09T13:00:11+01:00 (10 years ago)
Author:
rblod
Message:

Second set of change in OPA_SRC for compatibility with agrif

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r2633 r2676  
    539539      CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping 
    540540      CALL histwrite( nid_T, "sowafldp", it, erp           , ndim_hT, ndex_hT )   ! freshwater flux damping 
    541       zw2d(:,:) = erp(:,:) * sn(:,:,1) * tmask(:,:,1) 
     541      IF( ln_ssr ) zw2d(:,:) = erp(:,:) * sn(:,:,1) * tmask(:,:,1) 
    542542      CALL histwrite( nid_T, "sosafldp", it, zw2d          , ndim_hT, ndex_hT )   ! salt flux damping 
    543543#endif 
     
    545545      CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping 
    546546      CALL histwrite( nid_T, "sowafldp", it, erp           , ndim_hT, ndex_hT )   ! freshwater flux damping 
    547          zw2d(:,:) = erp(:,:) * sn(:,:,1) * tmask(:,:,1) 
     547         IF( ln_ssr ) zw2d(:,:) = erp(:,:) * sn(:,:,1) * tmask(:,:,1) 
    548548      CALL histwrite( nid_T, "sosafldp", it, zw2d          , ndim_hT, ndex_hT )   ! salt flux damping 
    549549#endif 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

    r2674 r2676  
    205205      ENDIF 
    206206 
    207       IF( nspg == 2 .OR. nspg == -1 ) CALL solver_init( nit000 )   ! Elliptic solver initialisation 
     207#if defined key_dynspg_flt || defined key_esopa 
     208      CALL solver_init( nit000 )   ! Elliptic solver initialisation 
     209#endif 
    208210 
    209211      !                        ! Control of timestep choice 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r2636 r2676  
    125125      IF( .NOT. ln_rnf ) THEN                      ! no specific treatment in vicinity of river mouths  
    126126         ln_rnf_mouth  = .false.                       
     127         IF( sbc_rnf_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_rnf arrays' ) 
    127128         nkrnf         = 0 
    128129         rnf     (:,:) = 0.e0 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r2636 r2676  
    3131   PUBLIC   sbc_rnf       ! routine call in sbcmod module 
    3232   PUBLIC   sbc_rnf_div   ! routine called in sshwzv module 
     33   PUBLIC   sbc_rnf_alloc ! routine call in sbcmod module 
    3334 
    3435   !                                                     !!* namsbc_rnf namelist * 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r2674 r2676  
    114114      !                            !-----------------------! 
    115115#if defined key_agrif 
    116       CALL Agrif_Declare_Variables()      ! AGRIF: set the meshes 
     116      CALL Agrif_Declare_Var       ! AGRIF: set the meshes 
     117# if defined key_top 
     118      CALL Agrif_Declare_Var_Top   ! AGRIF: set the meshes 
     119# endif 
    117120#endif 
    118121      ! check that all process are still there... If some process have an error, 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r2674 r2676  
    168168   INTEGER, PUBLIC            ::   nbcellsy     = jpjglo - 2 - 2*nbghostcells   !: number of cells in j-direction 
    169169   ! 
    170 #else 
     170#endif 
    171171   INTEGER, PUBLIC  ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension 
    172172   INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
     
    176176   INTEGER, PUBLIC  ::   jpkm1 ! = jpk-1                                            !:   -     -      - 
    177177   INTEGER, PUBLIC  ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj 
    178 #endif 
    179178 
    180179   !!--------------------------------------------------------------------- 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/step.F90

    r2528 r2676  
    8181#if defined key_agrif 
    8282      kstp = nit000 + Agrif_Nb_Step() 
     83!      IF ( Agrif_Root() .and. lwp) Write(*,*) '---' 
     84!      IF (lwp) Write(*,*) 'Grid Number',Agrif_Fixed(),' time step ',kstp 
    8385# if defined key_iomput 
    8486      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

    r2674 r2676  
    101101   LOGICAL :: llwp    ! Local copy of lwp - whether we are master PE or not 
    102102 
    103    CHARACTER(LEN=*), PARAMETER ::   cform_err = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !: 
    104    CHARACTER(LEN=*), PARAMETER ::   cform_war = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !: 
     103   CHARACTER(LEN=*), PARAMETER ::   cform_err2 = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !: 
     104   CHARACTER(LEN=*), PARAMETER ::   cform_war2 = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !: 
    105105 
    106106   !!---------------------------------------------------------------------- 
     
    193193      ! appropriate action - we just print a warning message 
    194194      IF( wrk_alloc /= 0 ) THEN 
    195          WRITE(kumout,cform_war) 
     195         WRITE(kumout,cform_war2) 
    196196         WRITE(kumout,*) 'wrk_alloc: allocation of workspace arrays failed' 
    197197      END IF 
     
    228228      wrk_in_use = .FALSE. 
    229229       
    230 #if ! defined   key_no_workspace_check 
     230#if ! defined   key_no_workspace_check || ! defined key_agrif 
    231231      iptr    = index1 
    232232      iarg    = 1 
     
    326326      llwrk_in_use = .FALSE. 
    327327      ! 
    328 #if ! defined   key_no_workspace_check 
     328#if ! defined   key_no_workspace_check || ! defined key_agrif 
    329329      ! 
    330330      iptr      = index1 
     
    992992      !!---------------------------------------------------------------------- 
    993993 
    994       WRITE(kumout, cform_err) 
     994      WRITE(kumout, cform_err2) 
    995995      WRITE(kumout,*) TRIM(cmsg) 
    996996      ! ARPDBG - would like to call mppstop here to force a stop but that 
Note: See TracChangeset for help on using the changeset viewer.