New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8283 – NEMO

Changeset 8283


Ignore:
Timestamp:
2017-07-05T15:51:07+02:00 (7 years ago)
Author:
andmirek
Message:

changes for coupled configuration

Location:
branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8257 r8283  
    154154 
    155155      IF( TRIM(cdname) == TRIM(cxios_context) ) THEN   
    156          CALL set_grid( "T", glamt, gphit, ln_mskland )  
    157          CALL set_grid( "U", glamu, gphiu, ln_mskland ) 
    158          CALL set_grid( "V", glamv, gphiv, ln_mskland ) 
    159          CALL set_grid( "W", glamt, gphit, ln_mskland ) 
     156         CALL set_grid( "T", glamt, gphit, .FALSE. )  
     157         CALL set_grid( "U", glamu, gphiu, .FALSE. ) 
     158         CALL set_grid( "V", glamv, gphiv, .FALSE. ) 
     159         CALL set_grid( "W", glamt, gphit, .FALSE. ) 
    160160         CALL set_grid_znl( gphit ) 
    161161         ! 
     
    172172      ENDIF 
    173173 
    174      IF( lrst_context )  CALL set_grid("N",glamt, gphit, .FALSE.)        ! not masked values 
     174     IF( lrst_context )  CALL set_grid("N",glamt, gphit, .TRUE.)        ! not masked values 
    175175 
    176176      IF( TRIM(cdname) == TRIM(cxios_context)//"_crs" ) THEN   
    177177         CALL dom_grid_crs   ! Save the parent grid information  & Switch to coarse grid domain 
    178178         ! 
    179          CALL set_grid( "T", glamt_crs, gphit_crs, ln_mskland )  
    180          CALL set_grid( "U", glamu_crs, gphiu_crs, ln_mskland )  
    181          CALL set_grid( "V", glamv_crs, gphiv_crs, ln_mskland )  
    182          CALL set_grid( "W", glamt_crs, gphit_crs, ln_mskland )  
     179         CALL set_grid( "T", glamt_crs, gphit_crs, .FALSE. )  
     180         CALL set_grid( "U", glamu_crs, gphiu_crs, .FALSE. )  
     181         CALL set_grid( "V", glamv_crs, gphiv_crs, .FALSE. )  
     182         CALL set_grid( "W", glamt_crs, gphit_crs, .FALSE. )  
    183183         CALL set_grid_znl( gphit_crs ) 
    184184          ! 
     
    19071907 
    19081908 
    1909    SUBROUTINE set_grid( cdgrd, plon, plat, lmask ) 
     1909   SUBROUTINE set_grid( cdgrd, plon, plat, lrst ) 
    19101910      !!---------------------------------------------------------------------- 
    19111911      !!                     ***  ROUTINE set_grid  *** 
     
    19171917      REAL(wp), DIMENSION(jpi,jpj), INTENT(in) ::   plon 
    19181918      REAL(wp), DIMENSION(jpi,jpj), INTENT(in) ::   plat 
     1919      LOGICAL                     , INTENT(in) ::  lrst 
    19191920      ! 
    19201921      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zmask 
    19211922      INTEGER  :: ni,nj 
    1922       LOGICAL :: lmask 
    19231923       
    19241924      ni=nlei-nldi+1 ; nj=nlej-nldj+1 
     
    19311931      CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = 1-nldi, data_ni = jpi, data_jbegin = 1-nldj, data_nj = jpj) 
    19321932 
    1933       CALL iom_set_domain_attr("grid_"//cdgrd, lonvalue = RESHAPE(plon(nldi:nlei,nldj:nlej),(/ ni*nj /)),   & 
     1933      IF(.NOT.lrst) CALL iom_set_domain_attr("grid_"//cdgrd, lonvalue = RESHAPE(plon(nldi:nlei,nldj:nlej),(/ ni*nj /)),   & 
    19341934         &                                     latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /))) 
    1935       IF ( lmask ) THEN 
     1935      IF ( ln_mskland ) THEN 
    19361936         ! mask land points, keep values on coast line -> specific mask for U, V and W points 
    19371937         SELECT CASE ( cdgrd ) 
  • branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7923 r8283  
    395395      IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration 
    396396                            CALL     dom_cfg    ! Domain configuration 
     397                            CALL     sbc_init   ! Forcings : surface module (restart read with XIOS) 
    397398                            CALL     dom_init   ! Domain 
    398399 
     
    404405 
    405406      IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    406  
    407                             CALL     sbc_init   ! Forcings : surface module (clem: moved here for bdy purpose) 
    408407 
    409408      IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation 
Note: See TracChangeset for help on using the changeset viewer.