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 8929 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90 – NEMO

Ignore:
Timestamp:
2017-12-06T17:59:59+01:00 (6 years ago)
Author:
cbricaud
Message:

change in CRS branch for regional configuration

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r8754 r8929  
    175175            ENDDO 
    176176      END SELECT 
     177      WRITE(narea+1000-1,*)"end glam_crs gphi_crs ",p_glam_crs(1,2),p_gphi_crs(1,2) 
    177178 
    178179      ! Retroactively add back the boundary halo cells. 
    179       CALL crs_lbc_lnk( p_gphi_crs, cd_type, 1.0 ) 
    180       CALL crs_lbc_lnk( p_glam_crs, cd_type, 1.0 ) 
     180!????      CALL crs_lbc_lnk( p_gphi_crs, cd_type, 1.0 ) 
     181!????      CALL crs_lbc_lnk( p_glam_crs, cd_type, 1.0 ) 
     182      WRITE(narea+1000-1,*)"end1 glam_crs gphi_crs ",p_glam_crs(1,2),p_gphi_crs(1,2) 
    181183      ! 
    182184   END SUBROUTINE crs_dom_coordinates 
     
    11141116      ! Define global and local domain sizes 
    11151117      !============================================================================================== 
     1118      SELECT CASE ( jperio ) 
     1119 
     1120      CASE ( 0, 1 ) 
     1121      jpiglo_crs   = INT( (jpiglo - 2) / nn_factx ) + 2 
     1122      jpjglo_crs   = INT( (jpjglo - 2) / nn_facty ) + 2 
     1123 
     1124      CASE ( 3, 4 )    !   
    11161125      jpiglo_crs   = INT( (jpiglo - 2) / nn_factx ) + 2 
    11171126      jpjglo_crs   = INT( (jpjglo - MOD(jpjglo, nn_facty)) / nn_facty ) + 2 
     1127 
     1128      END SELECT 
     1129       
    11181130      jpiglo_crsm1 = jpiglo_crs - 1 
    11191131      jpjglo_crsm1 = jpjglo_crs - 1   
     
    12561268         ijis=ji 
    12571269         ii_start = mis2_crs(ijis)-nimpp+1 
    1258          WRITE(narea+1000-1,*)"start ",ijis,mis2_crs(ijis),ii_start ; CALL FLUSH(narea+1000-1) 
     1270         !WRITE(narea+1000-1,*)"start ",ijis,mis2_crs(ijis),ii_start ; CALL FLUSH(narea+1000-1) 
    12591271 
    12601272         !---------------------------------------------------------------------------------------------- 
     
    13171329         DO ji = 1, jpi_crs 
    13181330            mig_crs(ji) = ji + nimpp_crs - 1 
    1319             WRITE(narea+1000-1,*)"crs loctoglo",ji,mig_crs(ji) ; CALL FLUSH(narea+1000-1) 
     1331            !WRITE(narea+1000-1,*)"crs loctoglo",ji,mig_crs(ji) ; CALL FLUSH(narea+1000-1) 
    13201332         ENDDO 
    13211333         DO ji = 1, jpiglo_crs 
     
    13651377         !CALL FLUSH(narea+1000-1) 
    13661378         !DO ji = 1, jpi_crs 
    1367          !   WRITE(narea+1000-1,*)"crs i",ji,ji+nimpp_crs-1,mis_crs(ji),mie_crs(ji),mis_crs(ji)+nimpp-1,mie_crs(ji)+nimpp-1,nfactx(ji) 
     1379         !   WRITE(narea+1000-1,'(A15,7(1X,I4.4))')"crs test i",ji,ji+nimpp_crs-1,mis_crs(ji),mie_crs(ji), & 
     1380         !        &                                        mis_crs(ji)+nimpp-1,mie_crs(ji)+nimpp-1,nfactx(ji) 
    13681381         !ENDDO 
    13691382 
     
    14581471            ENDIF 
    14591472         ENDIF 
     1473         IF( jperio==0 .OR. jperio==1 )THEN 
     1474            IF( njmpp==1 )nldj_crs=1 
     1475         END IF 
    14601476 
    14611477         !---------------------------------------------------------------------------------------------- 
     
    15231539            !WRITE(narea+1000-1,*)"test J",jj,mjg_crs(jj),mjs_crs(jj),mje_crs(jj),mjs_crs(jj)+njmpp-1,mje_crs(jj)+njmpp-1,nfacty(jj) 
    15241540         ENDDO 
     1541 
     1542         !WRITE(narea+1000-1,*)"loc crs jpj nldj,nlej,nlcj ",jpj_crs, nldj_crs ,nlej_crs,nlcj_crs ; CALL FLUSH(narea+1000-1) 
     1543         !WRITE(narea+1000-1,*)"glo crs jpj nldj,nlej      ",jpj_crs, nldj_crs+njmpp_crs-1,nlej_crs+njmpp_crs-1 ;CALL FLUSH(narea+1000-1) 
     1544         !DO jj = 1, jpj_crs 
     1545         !   WRITE(narea+1000-1,'(A15,7(1X,I4.4))')"crs test j",jj,jj+njmpp_crs-1,mjs_crs(jj),mje_crs(jj), & 
     1546         !        & mjs_crs(jj)+njmpp-1,mje_crs(jj)+njmpp-1,nfacty(jj) 
     1547         !ENDDO 
    15251548 
    15261549         !========================================================================== 
Note: See TracChangeset for help on using the changeset viewer.