- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/DIA/diadct.F90
r13237 r13899 412 412 ijloc=ijglo-njmpp+1 ! " 413 413 414 !verify if the point is on the local domain:(1, nlei)*(1,nlej)415 IF( iiloc >= 1 .AND. iiloc <= nlei.AND. &416 ijloc >= 1 .AND. ijloc <= nlej)THEN414 !verify if the point is on the local domain:(1,Nie0)*(1,Nje0) 415 IF( iiloc >= 1 .AND. iiloc <= Nie0 .AND. & 416 ijloc >= 1 .AND. ijloc <= Nje0 )THEN 417 417 iptloc = iptloc + 1 ! count local points 418 418 secs(jsec)%listPoint(iptloc) = POINT_SECTION(mi0(iiglo),mj0(ijglo)) ! store local coordinates … … 519 519 520 520 !which coordinate shall we verify ? 521 IF ( cdind=='I' )THEN ; itest= nlei; iind=1522 ELSE IF ( cdind=='J' )THEN ; itest= nlej; iind=2521 IF ( cdind=='I' )THEN ; itest=Nie0 ; iind=1 522 ELSE IF ( cdind=='J' )THEN ; itest=Nje0 ; iind=2 523 523 ELSE ; CALL ctl_stop("removepoints :Wrong value for cdind") 524 524 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.