Changeset 4583
- Timestamp:
- 2014-03-26T10:35:32+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/LBC/cla_tam.F90
r3668 r4583 2139 2139 END SUBROUTINE cla_dynspg_adj_tst 2140 2140 2141 SUBROUTINE cla_adj_tst( kumadt ) 2142 !!----------------------------------------------------------------------- 2143 !! 2144 !! *** ROUTINE cla_adj_tst *** 2145 !! 2146 !! ** Purpose : Test the adjoint routine. 2147 !! 2148 !! ** Method : call the test routines of all the cla_ routines 2149 !! 2150 !! 2151 !! History : 2152 !! ! 08-08 (A. Vidard) 2153 !!----------------------------------------------------------------------- 2154 !! * Modules used 2155 2156 !! * Arguments 2157 INTEGER, INTENT(IN) :: & 2158 & kumadt ! Output unit 2159 2160 CALL cla_div_adj_tst( kumadt ) 2161 2162 CALL cla_traadv_adj_tst( kumadt ) 2163 2164 CALL cla_dynspg_adj_tst( kumadt ) 2165 2166 END SUBROUTINE cla_adj_tst 2167 2141 2168 #else 2142 2169 !!---------------------------------------------------------------------- … … 2146 2173 CONTAINS 2147 2174 SUBROUTINE cla_init_tam 2148 CALL ctl_stop( 'cla_init : Cross Land Advection hard coded for ORCA_R2 with 31 levels' )2175 CALL ctl_stop( 'cla_init_tam: Cross Land Advection hard coded for ORCA_R2 with 31 levels' ) 2149 2176 END SUBROUTINE cla_init_tam 2150 2177 SUBROUTINE cla_div_tan( kt ) 2151 WRITE(*,*) 'cla_div : You should have not see this print! error?', kt2178 WRITE(*,*) 'cla_div_tan: You should have not see this print! error?', kt 2152 2179 END SUBROUTINE cla_div_tan 2153 2180 SUBROUTINE cla_traadv_tan( kt ) 2154 WRITE(*,*) 'cla_traadv : You should have not see this print! error?', kt2181 WRITE(*,*) 'cla_traadv_tan: You should have not see this print! error?', kt 2155 2182 END SUBROUTINE cla_traadv_tan 2156 2183 SUBROUTINE cla_dynspg_tan( kt ) 2157 WRITE(*,*) ' dyn_spg_cla: You should have not see this print! error?', kt2184 WRITE(*,*) 'cla_dynspg_tan: You should have not see this print! error?', kt 2158 2185 END SUBROUTINE cla_dynspg_tan 2159 2186 SUBROUTINE cla_div_adj( kt ) 2160 WRITE(*,*) 'cla_div : You should have not see this print! error?', kt2187 WRITE(*,*) 'cla_div_adj: You should have not see this print! error?', kt 2161 2188 END SUBROUTINE cla_div_adj 2162 2189 SUBROUTINE cla_traadv_adj( kt ) 2163 WRITE(*,*) 'cla_traadv : You should have not see this print! error?', kt2190 WRITE(*,*) 'cla_traadv_adj: You should have not see this print! error?', kt 2164 2191 END SUBROUTINE cla_traadv_adj 2165 2192 SUBROUTINE cla_dynspg_adj( kt ) 2166 WRITE(*,*) ' dyn_spg_cla: You should have not see this print! error?', kt2193 WRITE(*,*) 'cla_dynspg_adj: You should have not see this print! error?', kt 2167 2194 END SUBROUTINE cla_dynspg_adj 2168 2195 SUBROUTINE cla_div_adj_tst( kt ) 2169 WRITE(*,*) 'cla_div : You should have not see this print! error?', kt2196 WRITE(*,*) 'cla_div_adj_tst: You should have not see this print! error?', kt 2170 2197 END SUBROUTINE cla_div_adj_tst 2171 2198 SUBROUTINE cla_traadv_adj_tst( kt ) 2172 WRITE(*,*) 'cla_traadv : You should have not see this print! error?', kt2199 WRITE(*,*) 'cla_traadv_adj_tst: You should have not see this print! error?', kt 2173 2200 END SUBROUTINE cla_traadv_adj_tst 2174 2201 SUBROUTINE cla_dynspg_adj_tst( kt ) 2175 WRITE(*,*) ' dyn_spg_cla: You should have not see this print! error?', kt2202 WRITE(*,*) 'cla_dynspg_adj_tst: You should have not see this print! error?', kt 2176 2203 END SUBROUTINE cla_dynspg_adj_tst 2204 SUBROUTINE cla_adj_tst ( kt ) 2205 WRITE(*,*) 'cla_adj_tst: You should have not see this print! error?', kt 2206 END SUBROUTINE cla_adj_tst 2177 2207 #endif 2178 2208 #endif
Note: See TracChangeset
for help on using the changeset viewer.