Changeset 8138 for branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modbcfunction.F90
- Timestamp:
- 2017-06-05T12:01:03+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modbcfunction.F90
r5656 r8138 58 58 integer, intent(in) :: value !< input value 59 59 ! 60 Agrif_Curgrid % parent % tabvars_i(tabvarsindic) % iarray0 = value 60 61 integer :: i 62 logical :: i_found 63 64 i_found = .FALSE. 65 66 do i=1,Agrif_NbVariables(4) 67 if (LOC(tabvarsindic) == LOC(agrif_curgrid%tabvars_i(i)%iarray0)) then 68 agrif_curgrid%tabvars_i(i)%parent_var%iarray0 = value 69 i_found = .TRUE. 70 EXIT 71 endif 72 enddo 73 74 if (.NOT.i_found) STOP 'Agrif_Set_Integer : Variable not found' 75 61 76 !--------------------------------------------------------------------------------------------------- 62 77 end subroutine Agrif_Set_parent_int … … 70 85 subroutine Agrif_Set_parent_real4 ( tabvarsindic, value ) 71 86 !--------------------------------------------------------------------------------------------------- 72 integer, intent(in) :: tabvarsindic !< indice of the variable in tabvars 73 real(kind=4),intent(in) :: value !< input value 74 ! 75 Agrif_Curgrid % parent % tabvars_r(tabvarsindic) % array0 = value 76 Agrif_Curgrid % parent % tabvars_r(tabvarsindic) % sarray0 = value 87 real(kind=4), intent(in) :: tabvarsindic !< input variable 88 real(kind=4),intent(in) :: value !< input value for the parent grid 89 90 integer :: i 91 logical :: i_found 92 93 i_found = .FALSE. 94 95 do i=1,Agrif_NbVariables(2) 96 if (LOC(tabvarsindic) == LOC(agrif_curgrid%tabvars_r(i)%array0)) then 97 agrif_curgrid%tabvars_r(i)%parent_var%array0 = value 98 agrif_curgrid%tabvars_r(i)%parent_var%sarray0 = value 99 i_found = .TRUE. 100 EXIT 101 endif 102 enddo 103 104 IF (.NOT.i_found) THEN 105 do i=1,Agrif_NbVariables(2) 106 if (LOC(tabvarsindic) == LOC(agrif_curgrid%tabvars_r(i)%sarray0)) then 107 agrif_curgrid%tabvars_r(i)%parent_var%array0 = value 108 agrif_curgrid%tabvars_r(i)%parent_var%sarray0 = value 109 i_found = .TRUE. 110 EXIT 111 endif 112 enddo 113 ENDIF 114 115 if (.NOT.i_found) STOP 'Agrif_Set_parent_real4 : Variable not found' 77 116 !--------------------------------------------------------------------------------------------------- 78 117 end subroutine Agrif_Set_parent_real4 … … 86 125 subroutine Agrif_Set_parent_real8 ( tabvarsindic, value ) 87 126 !--------------------------------------------------------------------------------------------------- 88 integer, intent(in) :: tabvarsindic !< indice of the variable in tabvars 89 real(kind=8),intent(in) :: value !< input value 90 ! 91 Agrif_Curgrid % parent % tabvars_r(tabvarsindic) % darray0 = value 127 real(kind=8), intent(in) :: tabvarsindic !< input variable 128 real(kind=8),intent(in) :: value !< input value for the parent grid 129 130 integer :: i 131 logical :: i_found 132 133 i_found = .FALSE. 134 135 do i=1,Agrif_NbVariables(2) 136 if (LOC(tabvarsindic) == LOC(agrif_curgrid%tabvars_r(i)%array0)) then 137 agrif_curgrid%tabvars_r(i)%parent_var%darray0 = value 138 agrif_curgrid%tabvars_r(i)%parent_var%array0 = value 139 i_found = .TRUE. 140 EXIT 141 endif 142 enddo 143 144 IF (.NOT.i_found) THEN 145 do i=1,Agrif_NbVariables(2) 146 if (LOC(tabvarsindic) == LOC(agrif_curgrid%tabvars_r(i)%darray0)) then 147 agrif_curgrid%tabvars_r(i)%parent_var%darray0 = value 148 agrif_curgrid%tabvars_r(i)%parent_var%array0 = value 149 i_found = .TRUE. 150 EXIT 151 endif 152 enddo 153 ENDIF 154 155 if (.NOT.i_found) STOP 'Agrif_Set_parent_real8 : Variable not found' 156 92 157 !--------------------------------------------------------------------------------------------------- 93 158 end subroutine Agrif_Set_parent_real8
Note: See TracChangeset
for help on using the changeset viewer.