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