- Timestamp:
- 2016-04-07T16:32:24+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/TOOLS/SIREN/src/domain.f90
r5037 r6440 246 246 ! 247 247 !> @author J.Paul 248 !> - Nov, 2013- Initial Version248 !> @date November, 2013 - Initial Version 249 249 ! 250 250 !> @param[inout] td_dom dom structure … … 294 294 ! 295 295 !> @author J.Paul 296 !> - June, 2013- Initial Version296 !> @date June, 2013 - Initial Version 297 297 !> @date September, 2014 298 298 !> - add boundary index … … 362 362 363 363 IF( td_mpp%i_perio < 0 .OR. td_mpp%i_perio > 6 )THEN 364 CALL logger_error("DOM INIT: invalid grid periodicity. "//& 365 & "you should use grid_get_perio to compute it") 364 CALL logger_error("DOM INIT: invalid grid periodicity ("//& 365 & TRIM(fct_str(td_mpp%i_perio))//& 366 & ") you should use grid_get_perio to compute it") 366 367 ELSE 367 368 dom__init_mpp%i_perio0=td_mpp%i_perio … … 424 425 ! 425 426 !> @author J.Paul 426 !> - June, 2013- Initial Version427 !> @date June, 2013 - Initial Version 427 428 !> @date September, 2014 428 429 !> - add boundary index … … 489 490 490 491 IF( td_file%i_perio < 0 .OR. td_file%i_perio > 6 )THEN 491 CALL logger_error("DOM INIT: invalid grid periodicity. "//& 492 & "you should use grid_get_perio to compute it") 492 CALL logger_error("DOM INIT: invalid grid periodicity ("//& 493 & TRIM(fct_str(td_file%i_perio))//& 494 & ") you should use grid_get_perio to compute it") 493 495 ELSE 494 496 dom__init_file%i_perio0=td_file%i_perio … … 548 550 !> 549 551 !> @author J.Paul 550 !> - November, 2013- Subroutine written552 !> @date November, 2013 - Initial version 551 553 ! 552 554 !> @param[inout] td_dom domain structure … … 653 655 !> 654 656 !> @author J.Paul 655 !> - November, 2013- Subroutine written657 !> @date November, 2013 - Initial version 656 658 !> @date September, 2014 657 659 !> - use zero indice to defined cyclic or global domain … … 721 723 !> 722 724 !> @author J.Paul 723 !> - November, 2013- Subroutine written725 !> @date November, 2013 - Initial verison 724 726 ! 725 727 !> @param[inout] td_dom domain strcuture … … 755 757 !> 756 758 !> @author J.Paul 757 !> - November, 2013- Subroutine written759 !> @date November, 2013 - Initial version 758 760 ! 759 761 !> @param[inout] td_dom domain strcuture … … 774 776 !> 775 777 !> @author J.Paul 776 !> - November, 2013- Subroutine written778 !> @date November, 2013 - Initial version 777 779 ! 778 780 !> @param[inout] td_dom domain strcuture … … 806 808 !> 807 809 !> @author J.Paul 808 !> - November, 2013- Subroutine written810 !> @date November, 2013 - Initial version 809 811 ! 810 812 !> @param[inout] td_dom domain strcuture … … 824 826 !> 825 827 !> @author J.Paul 826 !> - November, 2013- Subroutine written828 !> @date November, 2013 - Initial version 827 829 ! 828 830 !> @param[inout] td_dom domain strcuture … … 862 864 !> 863 865 !> @author J.Paul 864 !> - November, 2013- Subroutine written866 !> @date November, 2013 - Initial version 865 867 ! 866 868 !> @param[inout] td_dom domain strcuture … … 912 914 !> 913 915 !> @author J.Paul 914 !> - November, 2013- Subroutine written916 !> @date November, 2013 - Initial version 915 917 ! 916 918 !> @param[inout] td_dom domain strcuture … … 951 953 !> 952 954 !> @author J.Paul 953 !> - April, 2013- Subroutine written955 !> @date April, 2013 - Initial version 954 956 ! 955 957 !> @param[inout] td_dom domain strcuture … … 979 981 !> 980 982 !> @author J.Paul 981 !> - November, 2013- Subroutine written983 !> @date November, 2013 - Initial version 982 984 ! 983 985 !> @param[inout] td_dom domain strcuture … … 1041 1043 !> 1042 1044 !> @author J.Paul 1043 !> - November, 2013- Subroutine written1045 !> @date November, 2013 - Initial version 1044 1046 ! 1045 1047 !> @param[inout] td_dom domain strcuture … … 1082 1084 !> 1083 1085 !> @author J.Paul 1084 !> - November, 2013- Subroutine written1086 !> @date November, 2013 - Initial version 1085 1087 ! 1086 1088 !> @param[inout] td_dom domain strcuture … … 1180 1182 !> 1181 1183 !> @author J.Paul 1182 !> - November, 2013- Subroutine written1184 !> @date November, 2013 - Initial version 1183 1185 ! 1184 1186 !> @param[inout] td_dom domain strcuture … … 1292 1294 !> 1293 1295 !> @author J.Paul 1294 !> @date November, 2013 1296 !> @date November, 2013 - Initial version 1295 1297 !> @date September, 2014 1296 1298 !> - take into account number of ghost cell 1299 !> @date February, 2016 1300 !> - number of extra point is the MAX (not the MIN) of zero and asess value. 1297 1301 ! 1298 1302 !> @param[inout] td_dom domain strcuture … … 1342 1346 td_dom%i_imin = td_dom%i_imin - td_dom%i_iextra(1) 1343 1347 ELSE ! td_dom%i_imin - il_iext <= td_dom%i_ghost0(jp_I,1)*ip_ghost 1344 td_dom%i_iextra(1) = M IN(0, &1348 td_dom%i_iextra(1) = MAX(0, & 1345 1349 & td_dom%i_imin - & 1346 1350 & td_dom%i_ghost0(jp_I,1)*ip_ghost -1) … … 1354 1358 ELSE ! td_dom%i_imax + il_iext >= & 1355 1359 ! td_dom%t_dim0(1)%i_len - td_dom%i_ghost0(jp_I,2)*ip_ghost 1356 td_dom%i_iextra(2) = M IN(0, &1360 td_dom%i_iextra(2) = MAX( 0, & 1357 1361 & td_dom%t_dim0(1)%i_len - & 1358 1362 & td_dom%i_ghost0(jp_I,2)*ip_ghost - & … … 1362 1366 1363 1367 ELSE ! td_dom%i_ew0 >= 0 1368 1364 1369 ! EW cyclic 1365 1370 IF( td_dom%i_imin - il_iext > 0 )THEN … … 1389 1394 ! nothing to be done 1390 1395 ELSE 1396 1391 1397 IF( td_dom%i_jmin - il_jext > td_dom%i_ghost0(jp_J,1)*ip_ghost )THEN 1392 1398 td_dom%i_jextra(1) = il_jext 1393 1399 td_dom%i_jmin = td_dom%i_jmin - td_dom%i_jextra(1) 1394 1400 ELSE ! td_dom%i_jmin - il_jext <= td_dom%i_ghost0(jp_J,1)*ip_ghost 1395 td_dom%i_jextra(1) = M IN(0, &1401 td_dom%i_jextra(1) = MAX( 0, & 1396 1402 & td_dom%i_jmin - & 1397 1403 & td_dom%i_ghost0(jp_J,1)*ip_ghost - 1) … … 1405 1411 ELSE ! td_dom%i_jmax + il_jext >= & 1406 1412 ! td_dom%t_dim0(2)%i_len - td_dom%i_ghost0(jp_J,2)*ip_ghost 1407 td_dom%i_jextra(2) = M IN(0, &1413 td_dom%i_jextra(2) = MAX( 0, & 1408 1414 & td_dom%t_dim0(2)%i_len - & 1409 1415 & td_dom%i_ghost0(jp_J,2)*ip_ghost - & … … 1433 1439 ! 1434 1440 !> @author J.Paul 1435 !> @date November, 2013 1441 !> @date November, 2013 - Initial version 1436 1442 ! 1437 1443 !> @param[inout] td_dom domain strcuture … … 1476 1482 !> 1477 1483 !> @author J.Paul 1478 !> @date November, 2013 1484 !> @date November, 2013 - Initial version 1479 1485 !> @date September, 2014 1480 1486 !> - take into account boundary for one point size domain … … 1715 1721 ! 1716 1722 !> @author J.Paul 1717 !> @date November, 2013 1723 !> @date November, 2013 - Initial version 1718 1724 ! 1719 1725 !> @param[inout] td_dom domain strcuture
Note: See TracChangeset
for help on using the changeset viewer.
